` 


711275 


О 
〇 ) 
O 
і 


5 


BASIC 


` 


オ 技 術 社 


ラジ 





知っ て お きた だ たい 83③ の ボイン ト 集 


FM-"7"7 の 本 


BASIC, Logo プロ グラ ミン グ 


上 柿 力 # 


ラジ シオ 技術 選書 148 

















FIM-77 の 本 一 BASIC, Logo プ ロク ラミ ンク 
“а Х% 上 柿 о Лл Ж 
1 これ だ け | 7 は 知っ て ね お きた! FM- 77 の ABC 
ИИК ーーーーーーーーーー…ー ギー ポー ド が ちの 入力 ,、 い 才 NM2 mnm... 24 
Logo の シス テム ディ スク も バッ クア ッ プ を ---- 12 eS Е ЕМНЕ н... 26 
ЕМО. Еу КЫ ---5--—---+------------- 14 IF 一 THEN 一 ELSE の 使い か た ーーーーーーー 28 
16 進 数 は コン ピュ ー タ に と っ て 便利 な も の ---- 16 ҒОН--МЕХТ, 使い か た の 基本 ーーーーーーーー- 30 
人 間 の 判断 。 コ ンピュータ の 判断 ーー 18 FOR 一 NEXT と 順列 , 組合 せ 問題 ーー 32 
すべ て の 式 は 記号 で 与え られ る -------------- 20 乱数 を じょう ず に 使い まし ょ う ---------- 34 
ЗРЕО 2 関数 と その 考え か た ーーー 36 


FEW нгі); ログ ラム 作り の た め 


READ 一 DATA の いろ いろ な スタ イル ーー 38 
PF キー に よる 割込み 操作 240 
効果 倍増 ./ 文字 列 の 操作 Же Тест 
文字 列 の 中 か ら 目 的 の も の を 探す ーーーーー 44 
解け な い ? 暗号 文 を 作る ーー _ 46 
配列 を トラ ンプ で 考え て みる 一 | ーー 


配列 を トラ ンプ で 考え て みる 一 2 ーー 50 
配列 の 宣言 と ERASE 文 ーー 53 
多 次 元 の 配列 も こわ く な い ーーーーーーーーーーー 54 
デー タ の 並べ か えと その 応用 ーー 56 

2 次 元 配列 を 使っ た 表 形 式 の 並べ か えー 58 
配列 を ゲー ム に 応用 する ーーーーーーーーーーーー 62 


E 3 っ か り 分 る ファ イル の 操作 


Рао jn А 66 
= те ЫТ Ls 0 À е-. 68 
лы 2 Т Лр 8-с 70 
デー タ の 読み , 書き, ПЕ, 消去 ーーーーーーー 72 
Го 5 анана 74 


КЕБЕӘЗЕН ZRSER 2 À на 76 
1 セク タ に 多く の デー タ を 詰め る ーーーーーーーー 78 
ЭРЖОНКИКЕ Т! чуст еч 80 
ラン ダム ファ イル と デー タ の 間際 で ーー ツ 88 


ЕЎ クラ フィ ックス を マス ター し まし ょ う 


 гу2Етелоля ---- 94 
角間 数 と 円 の 描き か た uw 96 


8 Os Pie, ーー っ M0K3 才 ペーーーー… 98 
БЕТОН А 100 





ЧИШ ШШК Ст?!) ------------------ 102 
原点 を 中 心 に し て 図形 を 回 転 さ せる -------- 104 
ЖШУИЕИШИА ----------------------- 106 
ВОИ арасы анин алқа анын 108 
山行 き の 情報 を 使っ て 平面 図 に する ーーー 110 


ЕУ クラ フィ ックス の 進ん だ 使い か た 


КЕТО СИХ а а t S y Мо 124 
ET 人 9 と データ の SA 5220-2222 126 
дора GE y КЕК у= кин 128 


6 演 字 の 取扱 いと その 応用 


漢字 を 画面 に 出し て みる ーーーーーーーーーーーー 138 
上 読み か ら 漢 字 を 探す 一 | ーーーーーーーーーー - 140 
上 読み か ら 漢字 を 探す 一 2 ーーーーーーーーー 142 
ҮЙ サッ ンド & ミ ュー ジッ ク 
Ы. = зы с шш 156 
波形 加工 が 効果 音 の きめ 手 ーーーーーーーーーーー 158 
oo 160 
PUA y 03 2... 0-4 162 


ЕУ これ か ら の 言語 Logo を 研究 し よう 


Logo が 問題 むき の 言語 と いわ れる わけ は ーー 172 
まず , 四角 は 四角 に な る よう に し よう --- 174 
岡 角 を 作り 回 転 ざ せる етери 176 
円 狐 は 円 に も な る ----------------- 178 
ДЕНЕС (Е, 花 に は 何 が 9 ーー 180 
ター トル の まとめ に きれ いな 花 を ーー 182 
ЕСИР тене: 184 
Logo の も う ひ と つの 世界 へ の 第 一 歩 ーー 186 
о <... аа 4 
ала ва 5 


РОДИО Анне ака 112 
ао, 7. ーー で ーー 116 
ы е БОБ 118 
ЖИЕН ЫНТАЛЫ 5 120 
VRAM と F- BASIC に お ける 操作 --------- 122 
к ШКА otー…ーーーーーーーーーーーーー 130 
ЕН 132 
ОВИЕ ОЕШ О У --------------------- 146 
ЖИЕ ------------- 148 
漢字 の フォ ント を 拡大 し て 見 る ーー 154 
^S" コ マン ド が PUAY 文 の キー ポイ ント ……- 164 
ПЕНИЕ е... 166 
FM-77 を 鍵盤 楽器 に する wertz 100 
乱数 を 使っ て 即興 演奏 を させ る 170 
公約 数 と 公 倍 数 を 計算 させ る F. 188 
判断 を し , 手続 き を 呼び 出す ” 190 
ワー ド と リス ト を し っ か り 理 解 し まし ょ う ------- 191 
Logo に "しりとり" の 審判 を させ る ーー 192 
名 簿 を 整理 し , 重複 し た 名 前 を 取り の ぞ く --- 194 
ТАО ДӘ ------------- 196 
Logo に よる ソー ト の 考え か た , 作り か た ーー 198 

ОЕ ннен. 201 
掲載 用 時 グロ ルク 0 ジル へ リリ シス トニ ニー ここ ここ こう 203 





序 


FM-8 か ら 始 まっ た 富士 通 の 8 ビッ ト ・ パ ー ン ソナ ルコ ンピュータ は , FM-77 で 事実 上 , 最終 
モデ ル に な っ た と いえ る で し ょ う . 多 機 能 性 ・ 高 速 性 を 備え , 豊富 を オプ ショ ン の 活用 な ど に 
より , 実用 性 が 高く 楽し く 使 える も の に な っ た か ら で す . また , BASIC や Logo に 加え て OS- 
9 な ども 導入 で きる た め , 幅広 い 利用 価値 を 持っ て いま す . 
この よう に すぐ れ た 能力 を 持つ FM-77 で す が , いき 自分 の も の に な り , これ を 使っ て 何 か を 
きせ よう と いう と き , その すべ て を 市 販 の ソフ トウ ェ ア に 頼る わけ に は ゆき ませ ん し , プロ グ 
ラミ ング の 基本 に を る 知識 な し で は 使い こなせ ませ ん . また , 身の回り に ある いろ いろ な テー 
マ の 多く は , ちょ っ と し た プロ グラ ム を 自分 で 作る こと で 処理 で きる も の で す . 
本 書 は こう し た 観点 あら, コン ピュ ー タ に つい て 基礎 的 な 理解 を 必要 と する 部 分 に つい て の 
а о 1, 実際 的 を 「FM-77 を どの よう な こと に どう 使う の か 」 に 関す る テー マ を , 多く 
の プロ グラ ムリ スト を 例 に し て まとめ た も の で す . し た が っ て BASIC や Logo の 文法 その も の 
の 解説 な ど は 割 迷 し で いま すか ら , 製品 に 添付 され た マニ ュ ア ル 類 を 参照 し な が ら 本 書 に 目 を 
通し て くだ され ば , より 深く 正しく 理解 で きる こと と 思い ます . 
本 書 を 読ま れる に あたっ て , 以下 の 点 に つい て 注意 し て くだ さい . 
@ BASIC は F-BASIC の V3.0 に 準拠 し て いま す 
@logo は FM-Logo の V2.0 に 準拠 し て いま す 
@ BASIC の プロ グラ ムリ スト の 未 尾 に は , REM (リマ ー ク ) ある い は その 代用 で ある アポ 
スト ロフ ィ (^) に 続き , 解説 の 文 を 入れ て あり ます . プロ グラ ム を 走ら せる 上 で は 不要 で 
すか ら , 実 使用 に あたっ て は 省 い て も さしつかえ あり ませ ん 

@ 内容 の 大 半 は FM-7 お よび FM-new 7 に も 対応 し ます . な お , BASIC に つい て は 漢字 R 
OM や フロ ッ ピ ー デ ィ ス ク ・ ド ライ ブ を 装備 する こと で 完全 に 対応 し ます 





1984 年 9 月 
(3 台 の FM・…… 11, 7、77 に 囲ま れ て ) 
# 参考 x ш 
マイ クロ コン ピュ ー タ の 内 部 構造 と 機械 語 パ ツ ジコ ン 実 用 ガイ ド 89 (ラジ ォ 技 術 社 ) 
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һе ТЫ н 2 230 


図形 を 回 転 さ きせ て みる (105 ペ ー ジ ) 











GET@ を 使っ た 空中 ブラ ンコ ・ ア ニメーション (130 ペ ー ジ ) 





きれ いな カレ イド スコ ー プ (万 華 鏡 ) 


ひし 形 を 


回 転移 動 さ せ て みる (107 ペ ー ジ ) 





ОЛ | 


むき 


3259 1%°т? クタ ヾ サイ 
*・・・ チ ュ ウ キキ っ の 3・・・ シ ドウ キュ ウ 


ЖЫГЫТ 


24 枚 の 絵 合 せ ゲ ー ム (133 ペ ー ジ ) 


04d 04f 
04d 04c 
4 О4ан 0438 
04c# 04Ғ 04f 04е 04а 











ЖИЛЬ 299-7921 

NMI (ee 2039 3 いわ ) 2 2 
ма 5700-4129 212 

5399) 74(CT:1……・255) ? 18 

3ÉP 54) れ デ 7 5F3 70799 АНКЕ? PUSH 


波形 加工 を し て 効果 音 を 出し て みる (159 ペ ー ジ ) FM-77 が 鍵盤 楽器 に な る (169 ペ ー ジ ) 








9%”) 4 283 ミル ナラ АМҮ KEY PUSH 


カラ ー パ レッ ト を テス ト し て みる (120 ペ ー ジ ) 配列 を トラ ンプ で 考え る と …(50 ペ ー ジ ) 





Л (79 (1290221 2 158 
л 429 (9802 7 -% 


6CURS0R3 92467 1207 








図形 の 移動 95 ページ) グラ フィ ッ ク カ ー ソ ル で 絵 を 描く (118 ペ ー ジ ) 


сл ҚАЗ 
ЖИ: 








立体 の 回 転 . 左 は 最初 の 画面 . 右 は 回 転 後 の 表示 (113 ペ ー ジ ) 


Ë D° CODE=8H3DS9 


8 2 4 6 8 19 12 1】 16 18 20 22 24 66 28 9 32 34 36 38 
RM-TTEONT 
9 たり が 37P- 州 B 


81234565789 


438443111) 


түз? 5704 (-- --) „0 
20 が 04 (— —) те К ур ерен 
ЕТЕ ДЕРТ ЕЛЕР А 


БЕ. KEY PUSH 


漢字 の フォ ント を 拡大 し て 見 る (154 ペ ー ジ ) 漢字 カナ まじ り 文 で 文書 を 作る (149 ペ ー ジ ) 




















у у у т l НЕЕ ШЕЕ ШЕЕ 









































AN. か ん た ん に 作れ る (183 ペ ー ジ ) シェ イプ を 使っ て 旗 を 描く (185 ペ ー ジ ) 


Logo の 世界 に 人 < みよ う 


2 Logo で し り と りあ そ び を し よう (192 ペ ー ジ ) 


сэ зв" 7927081 COUNT : テ "タコ ト N* 1 





四角 形 を 回 転 さ せる の も か ん た ん に で きる (176 ペ ー ジ 


= 
W at 
қ 


ТЕА 
シリ トリ ニ ナッ テイマ セラ ] 


ма ы и дА ы 
толао 2чо 


は で サー 
2945250 


5; 
йй 


90 7,7 
ЗЕК \ "27 


ТО ут” 9н 


АДУ бы ДС ПЕТ ey Ya бы 


ЕМ-/ОАВС 
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ディ スケ ッ ト の フォ ー マ ッ ト 








* フ ォ ー マ ッ ト と は 


* ポ オリジ ナル の ディ ス 
ケッ ト は 大 切 に 保管 


※ デ ィ ス ケッ ト に 書か れ た デー タ や プ 
ログ ラム の すべ て を 消し た い 時 は , デ 


ィ ス ケッ ト を イニ シア ライ ズ す る 
DSKINI0 
と いっ た 命令 で すべ て が 消去 可能 


フロ ッ ピ ー デ ィ ス ケッ ト は , A 社 に も B 社 の コン ピュ ー タ に も 使え 
ます . し か し 場合 に よっ て は A 社 と B 社 で は ディ スケ ッ ト の 使い か た 
が 異な を る た め , 新品 の ディ スケ ッ ト は 畑 で いえ ば “荒地” の 状態 に な 
っ て いま す . これ を , 使用 する コン ピュ ー タ に 合っ た 形 に 整地 する の 
が フォ ー マ ッ ト (format : 一 定 の 方 式 に する ) で す . 新品 の ディ スケ 
ッ ト を 1 枚 用 意 し て , まず マニ ュ ア ル に し た が っ て フォ ー マ ッ ト し て 
くだ さい . これ が 終っ た ら , と りあ え ず シス テム ディ スケ ッ ト を バッ 
Ро А (Баскар Е) 250252. こう 5 し < で お け ば マス 
ター に な る ディ イス ケット は と りあ え ず 不要 に を る の で , これ を た いせ 
つ に 保管 し て お きま す . 


つぎ に WIDTH 80 に し て , リス ト を 画面 に 出し た ら , この フォ ー マ 
ッ ト 用 の プロ グラ ム を , 下 の よ うに 書き 変え た まし ょ う . ディ スケ ッ ト 
の 0 ウパ そ モ マッ トド ト は ば は ひ 究 ば ん に 行ない ます が オリジ デザ ルプ ログ ラム は 
分 り に くい の で , 日 本 語 に 直す の が 大 部 分 で す . 行 番号 545, 546, 547 
は 追加 する 文 で . これ を 書い て お け ば マニ ュ ア ル を いち いち 参照 し な 
く て も フォ ー マ ッ ト が 正しく 行 な を ます . リス ト を 書き 変え た ら 

SAVE "0 : SYSDSK | 
КРИ. 

Аге you sure (Ү or N) ? 

GMA 力 し て 終り で す . 
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30 " 





40 CLEAR 10000, &НАҒҒЕ 
50 LOADM"DFMCD" 

60 MIDTH B0,20:CLS:COLODR 4: РКІМТ 

70 РКІМТ"жжж FLUPPY DISK FHRMATTING +++" 

80 COLOR 7: РКІМТ 

90 INFUT "フォ ー マ 9 ト テト スカ ";R$ 

100 IF К%<>"Ү" БОТО 220 

110 ІМРОТ "724-79 37/7 テリ イス リョ ト ます Y23022 トド ライ フ ド ニー イル マス メカ (9- さ ) "』DRV2 
120 IF DRVZXg БОТО 110 
130 IF DRV253 БОТО 110 


DISK FORMAT 














※ こ の プロ グラ ム は 
FM-77 付 属 の ユー テ 
イリ ティ を も と に し 
て いま す 
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PRINT "74-74һ994 DISK 3" 

РКІМТ" К" 2427; ШКУ2; "= 4729794" 

INFUT" ヨ 9 ウイ OK ";R$:IF R$<>"Y" БОТО 110 

РОКЕ %Н5400,0 

РОКЕ &H5491,DRV2 

ЕХЕС %ҰН5000 

Е-РЕЕК(%Н5400) 

IF Е<>@ THEN PRINT"DISK 1/0 ERROR !!": БОТО 540 
PRINT "フォ -ー?9 ト カラ リョウ 11 


FRINT 

"DISK BASIC SYSTEM СОРҮ 

DIM S$(63) 

FIELD #@,128 А5 4%,128 А5 B$ 

COLOR 4 

РКІМТ"жжж DISK BASIC SYSTEM 3 CUPY 277 жән" 


COLOR 7:РКІМТ 

INPUT "Уул" 27 ト " う 12" ニオ 79?2 カ (9- さ ) "』DRV2 

IF DRVZ<Q OR DRV2 ジ 3 THEN 310 

PRINT" シ 2 テム DISK Э DRIVE @ 24/7297%4" 

IF DRV2=@ THEN 560 

PRINT"3t°- 294 77127489 DRIVE";DRV2; "24/779794" 
DRV1=9 

INPUT" ヨ 9 ウイ HK ";R$:IF R$%$<>"Y" БОТО 510 

FOR SCT=1 TO 32 

DUMMY$=DSKI$(DRV1,0,SCT) 

SAD=2*(SCT-1) 

5%(5А0)=А% 

S*$(SAD+1)=B$ 

NEXT SCT 

IF DRV2<>Q GOTO 470 

PRINT"3t°- 994 77177482 ОКІЧЕ"  КУ2;"24/729794" 
INPUT "394 OK ";R$:IF R$<>"y" БОТО 450 

FOR SCT=1 TO 32 

SAD=2*(SCT-1) 

LSET А%=5%(5Ар) 

LSET B$=S*$(SAD+1) 

DSKO$ DRV2,0,SCT 

NEXT SCT 

PRINT SYSTEM DUDE ЗЕ” здолали 

CLEAR 300,kHóFFF 

PRINT"4? СОРҮ 27/9 727797 Оло" 

PRINT"DSKINI - 90" キチ "イス ケト 用 ñásy4k 5477) 0523593 947°" 
PRINT "ルイ <<DSKINIQ>> P <<05К1М11>>› fh" y" 2" 

END 
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Logo の シス テム ディ スク も パッ クア ッ プ を 


*TLogo の バッ クア ッ プ ogo の シス テム ディ スク (シス テム ディ スケ ッ ト ) も , お な じ よ う 
ЛУ ЖЛ 2028 し まし よう まお の EEBASIG の ショ ステア ム I 因 用 ス ク を ド 
ライ ブ の 0 番 に 入れ 
RUN ^VOLCOPY [J 
と し ます . し ば らく する と 画面 に メッ セー ジ が 出 ま すか ら , 以下 , 画 
面 の 指示 に 従い ます . を お, この VOLCOPY (volume сору: 2774 А 
ケッ ト の 中 味 を そっ くり 他 の ディ スケ ッ ト へ 写す こと ) な どの ユー テ 
ィ リ ティ プロ グラ ム も , 日 本 語 の 説明 に 書き か えた ほう が 使い や すく 
な り ま す . 前 の ペー ジ を 参照 し て 試し て くだ さい . ちな み に 
SOURCE : ソー ス / 元 の も の 





※ 画 面 に メッ セー ジ が 出 た ら , Е-ВА 


SIC の シス テム ディ スケ ッ ト を 取出 し , DESTINATION : デス ティ ネー ショ ン / 目 的 の も の , 行き 先 
代り に Logo の シス テム ディ スケ ッ ト を 29347. #7 ы Т 1, ; ч 
Ба САИН. Жоо thiya НЕ Оа би: 
示 に し た が う て , 何 回 か に 分 け て 目的 の ディ スケ ッ ト へ と 写し て いき ます . 

** 最 小区 画 は クラ スタ ディ スケ ッ ト に 収め る こと が で きる も の は プロ グラ ム と , プロ グラ 


ム で 作成 し た デー タ で す . これ ら は すべ て ファ イル と 呼ば れ ま す が, 
プロ グラ ム フ ァ イル や デー タフ ァイル は ディ レク トリ (йігесіоту : 
FE, 管理 名 答 を 見 る こと ) を と っ て , 一 覧 表 の 形 で 画面 に 出力 する こ 
と が で きま す . この た め に 使う の が ファ イル ス 命 令 で 

FILES "0: [J 
と いう よう に タイ プ す る こと で 可能 で す . 画面 出力 され た ファ イル の 
読み 方 に つい て は マニ ュ ア ル を 参照 し て で ください. 

な お プロ グラ ム も デー タ も , ディ スケ ッ ト の 最少 区 分 単位 で ある ク 
ラス タ (cluster : ひと た ば , ひと か た まり ) を 甘 準 に し て 収め られ , 
DSKINI が ほど こさ れ た ディ スケ ッ ト で は 152 ク ラス タ の 区 画 が 用 意 き 
МОЕ АШ 

100 А=10 : РКІМТ А 
と いう プロ グラ ム は と て も 短 か く 《, ИИК 7  FOit AQ 





デ イス ケッ ト の 入 / 出 力 最小 単位 は 部 に 収め られ る の で , 1 クラ スタ ルル いっ た 区画 の 中 で は ゴミ つぶ 程 
, ) た ん だ | / ゲラ ム > № ҒА , i - 
КО, 27435 度 の 存在 で す が , プロ グラ ム ヲ ァイル よし で SAVE す れ ば , や は り 1 


を 慌 理 の 最小 単位 と まし て いる クラ スタ を 使っ て し まい まず 。 た めし に 上 の プロ グラ ム を 作り 





жж よい ファ イル 名 , ЖЕ 
い フ ァイル 名 
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FOR І-1 ТО 152: SAVE "0:/ 十 STR$ (1) : NEXT 
と し て , リタ ー ン キー を 押し て くだ さい . FM-77 は 数 分 か け て この プ 
ログ ラム を 152 回 ,、 SAVE し て ゆき ます . 

づ の の ぢ に ディ レク ドリ お 委 る に 。 тор Е, ОИЕ. 
と つけ られ た も の が 152 個 記録 きれ て いる こと を 教え て くれ ます . 短 か 
い プ ログ ラム で あっ て も , 1 枚 の ディ スケ ッ ト に は 最大 で 152 ま で し か 
収め られ な い , と いう わけ で す . 


あな た が 作る プロ グラ ム や デー タフ ァイル に は , 名 前 を つけ て 管理 
し を けれ ば いけ ませ ん . 1 枚 の ディ スケ ッ ト の 中 に デー タ , BASIC, 
Logo の プロ グラ ム を 収め る こと が で きま す が , BASIC と Logo は 別 の 
ディ スケ ッ ト を 使い まし ょ う . や む な く 混在 きせ る 時 は 

アテ ナカ キ . BC (BASIC に よる 宛名 書き プロ グラ ム ) 

アカ イハ ナ . LG (Logo に よる 赤い 花 を 描く プロ グラ ム ) 

な ど と , ファ イル 名 の あと に 識別 記号 を 書い て お きま す . F-BASIC 
は ァイル 名 85 学 まお KG 介 ます : が お 5 「 ブ ロウ ラミ バァ イル 
か , デー タフ ァイル か は ディ レク トリ を と っ て 見 る こと が で きる の で 
識別 記号 を 書く 必要 は あり ませ ん . 

プロ グラ ム を 作っ て SAVE す る と き に , た と えば 

CE TT EST 242 

“PROG1" “PROG2” …… 

と いっ た よう を な 名 前 を つけ る こと は , 一 見 する と と て も 合理 的 を の で 
す が , それ ら が た くさ ん に な っ て くる と , ディ レク トリ を と っ て も 内 
ЖУЫК Сет сыз こと に な り ま 5。 mm グラム の 内 容 が 
分 か る ファ イル 名 に し まし ょ う . また , プリ ンタ が ある の なら 必 ら ず 
リス ト を 打出 し て お き , 保存 し て お きま す . 

また , 作成 し た プロ グラ ム に は 作成 者 の 名 前 , 作成 日 時 など を レム 
x (REM : リマ ー ク ) に し て プロ グラ ム の 最初 に 書い て お きま す . こ 


うし て お け ば いち いち FM-77 に 電気 を 入れ な く て も , プロ グラ ムリ ス 
ト を 見 る こと で ある 程度 の 管理 が で きる よう に な り ま す . な お , ディ 
スケ ッ ト に も 通し 番号 を つけ る と 共に , 簡単 な メモ 帳 を 入れ て お き , 
それ ぞ れ の ディ スケ ッ ト に は 何 が 入っ て いる の か を 書い て お きま し ょ 
う . ディ スケ ッ ト が 3 枚 や 5 枚 程度 な ら 管理 も むず か し く あ り ま せん 
が , 20 枚 , 30 枚 に な る と 覚え 書き な し 


で は 管理 で きま せん . 
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FM-77 の 10 進 数 , ビッ ト 表 現 








*FM-77 と 整数 の 扱い 


ネネ“ 補 数 "表現 と は 


WE (bit) : パ イナ リ デ ィ ン シッ 
F (binary digit) と 同じ で , 1 É jJ F 
ほ 《 イ ネス ・ ノ ー) と か 《1・0》) と いっ た 
52 つの 状態 の ば ちら か で ある こ 
>” ЖЖ 5. 情報 の 最小 単位 と も い 


現在 の コン ピュ ー タ は ディ ジタル コン ピュ ー タ と いっ て , 電気 信号 
@ “8 22 е ЛЕР ИНС Z k (ç АЛЕ ОЧ ЕЮМЕТ ВЕ 
бз, 8 ビッ ト の パー ソナ ルコ ンピュータ は 216 ( 2 016 -168 > 
F で 整数 を 扱う こと が で きま す . 2 の 16 乗 は 655386 に な り ま す が , も し 
マイ ナス の 数 を 扱わ な を く て も よい の な ら , この 65536 通 り を 0, 1, 2 
ы ee ‚ 65535 と いう 整数 に 対応 きせ て も よい と いえ ます . し か し 実際 に は 
マイ ナス の 数 を 扱わ な いこ と に は , 計算 機 と し て 使い に くい た め に , 
65536 通 り を つぎ の よう に 対応 きせ ます . 

— 32768, — 32767, …… Қыс ts ы д: , 32766, 32767 


FM-77 が 扱う 整数 の 最小 値 は 一 32768, 最大 値 が 32767 に な っ て いる 
わけ で す が , 16 ビ ッ ト の 信号 の “ある ", “な し " の 「 並 び 」 は どう を 
っ て いる の か と いい ます と , “ある =1" “な し =0” の 表現 で 


— 32768 1000000000000 000 

— 32767 1000000000000 001 

—5 Jual a stat ТОЕ ON 

ー2 ЇЇ Л y r taa ҮЧ ЧТ ПО 

-1 егіз to ます ГРҒІТІН 

0 0000000000000000 

1 0000000000000001 

2 0000000000000010 

5 0000000000000101 

32766 0414134448 11 1 PAY 

32767 0111111111111111 

な ど と な り ま す . これ を 見 で 気がつく こと は 

ー32768 1000000000000000 

32767 бел 4440442401 111111 
жы マイ ナス は 最上 位 (шап) 2 ЖІ С, あと は ある 法則 に し 
た が っ て ,。 ТЕО ООО (014111, 1 は 0 に な る ) な っ 
で て いる こと で すず すず, これ を ШИ оуу, この 方 法 に よ 


り コ ンピュータ 自身 が 証 算 し ずい 他 相 に な っ て いま す . 





ネネ キネ 10 進 数 の ビッ ト 表 
示 を 知る に は 
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コン ピュ ー タ が 扱う 数 を な ぜ 16 ビ ッ ト の 並び で 考え な けれ ば いけ な 
ВО», ある い は どう し て こん な めん どう な こと を 説明 する の か と い 
うと , これ か ら 出 て くる 「 論 理 演算 」 と 関係 が ある か ら で す . 

2 AND 8 
な ど と いっ た 論理 演算 の 結果 は FM-77 に よっ て すぐ に 求め る こと が で 
きま す が , な ぜ 結 果 が 「0」 に な る か な ど を 確 め る 時 , いま の 16 ビ ッ 
ト に よる 整数 の 表現 が 使え る の で す . 

下 に 示す プロ グラ ム は 10 進 数 を 16 桁 の ビッ ト で 表示 する も の で す . 
ある 数 を 2 進数 (0 と 1 だ け を 使っ て 数 を 表わす ) で 表現 する に は , F 
の リス ト の 行 番号 240 の よう に , ある 数 (X) を 2 で 割っ た 余り (В) 
が その 桁 の ビッ ト に な り ま す . そし て ある 数 (X) を 2 で 割る (\ を 
使っ た 整数 除算 ) と いう くり か え し に な り ま す . た と えば ある 数 が 4 
な ら , まず 2 で 割っ つた と き の 余 り は 0, 4-2—2 (整数 除算 ), 2 を 
2 で 割っ た 余り は 0, 252-1 (ЕМЕЙ), 1 を 2 で 割っ た と き の 
余り は 1, 1-2 (整数 除算 ) は 0…… を の で 配列 変数 の B(1) =0, 
в(2)=0, B(3)=1, В(4)-0--- これ を 行 番号 290 の よう に , 
逆 に 表示 する と 16 ビ ッ ト の 表示 に な り ま す . 





※ こ の プロ グラ ム に は マイ ナス 
の 整数 を 補 数 表現 する た め の 特 
別 な 工夫 が され て いる 








10 進 数 を 16 ビ ッ ト で 表示 する 


Й 


ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = 1 リプ ・・・・ う 2 リフ Ауу ニニ ニニ ニニ ニニ ュ ニ ニニ ニニ ニニ ニ 
コノ パフ カリ ルー ЕМ-77247% 97494747 227) トリ アリ カイ Э 
セリ メイ ラッ テイ マス 


DEFINT А-2"... ененнен еее (449079 3 буЛ": 
WIDTH 80,25 
DIM В(16) еен 44 б 16008772339 ヨウ イ 
Е=й 
ІМРИТ" 1090199 K`99"";X:;PRINT USING "###### = ";X; 
IF SBN(X)=-1 THEN F=1:X=X+1:「・・・。 マイ ナス / カス "/ эз) 


FOR KETA=1 TO 16°... 4.44......1000770 3 97429 
В(КЕТА)-Х MOD 2 '............ ーー・・ 7909 ЕМЫ 
IF F THEN В (КЕТА) =В (КЕТА) +1: +... マイ ナメ ノ Лл`/ әз) 
X=X¥2 7%%%6%66%664....өшө өш... ... リョ ヨリ 9 モト メル 
МЕХТ КЕТА 


FOR KETA=16 ТП 1 STEP -1 “.-.......... у7а94/ 79739 Еа? 
PRINT В(КЕТА); 

МЕХТ КЕТА 

РКІМТ 





6070 190 











16 進 数 は コン ピュ ー タ に と っ て 便利 な も の 


* 電 気 の 世 界 と 16 進 数 人 間 に と っ て 10 進 数 は と て も 区 切り が よく , 理解 し や すい も の で す 4 
し 。 小さ いと きか ら 10 進 数 で 教育 を 受け て いる こと も あっ て , 10 進 数 
に よる 表現 が 複雑 で も お どろ いた り し ませ ん . と ころ が コン ピュ ー タ 
と きた ら , な に し ろ 電 気 の 信 号 の ある ・ な し , し か 理解 で き な い も の 
で すか ら 。 コン ピュ ー タ か ら 見 る と 2 進数 が も っ と も 分 りや すい も の 
な の で す .。 つま り 1 と 0 だけ で 数 を 表わし た も の は , た と えど ん な に 
桁 数 が 増え て も コン ピュ ー タ は お どろ か な い の で す . 

さき ほど 10 進 数 を 2 進 で 表示 を し た 例 を 見 て も 分 る よう に , 10 進 数 
な ら 5 ケ タ の 数 字 で よい も の も , 2 進数 で は 16 ケ タ を 使っ て 表わさ な 
Is p қа Ач. どい うお わけ で コンピ エー タ 
に 関係 する 技術 者 ・ 学 者 は 2 進数 だ け で は な く 16 進 数 と いう も の を よ 
く 使い ます . 











* ポ 0 一 F ま で を 使っ て 表 この 16 進 数 は コン ピュ ー タ を 扱う の に と て も 便利 , と いう わけ で す 
現す る が , これ も 慣れ な い 人 間 に と っ て は な か な か 理解 し に くい も の で す . 
し か し FM-77 を 使い こなす 上 で , 2 進数 と 共に 16 進 数 を よく 知っ て お 
“と て も 役に立つ る ささ で FM-77 で は 10 進 数 も 2 進数 も 16 進 
数 も すべ て 使え を ます が , FM-77 に と っ て いち ば ん 理解 し や すい の は , 
お そら く 16 進 数 で し ょ う . 
16 進 数 は その 名 の と お り , 0 か ら 始 まり 15 に な っ て , つぎ の 16 に な 
る と き に ひと ケタ 上 が る も の で す . た だ し , いま “15" と いっ た の は 10 
進数 で 表現 し た と き の 話 で , じっさい に は 
Ола: 2: 3.4, 15% 16: (L; まま SA 94 А5 Шы ДӘ Жу КЕ 
と いう か ぞ え か た を し ます . で すか ら 16 進 数 の “12" は “じゅう に” 
で は な く “いち に ” に な り ま す . また 10 進 数 と の 区 別 の た め に & 有 H を 
01357 “&Н12° と 表わす と , これ は 
トト 1 ケタ 目 は 2 な の で 2 個 
F ド 2 ケ ダ 目 は 1 な の で (10 進 数 で 1 が 10 個 集まる と 下 2 ケ タ 目 が 1 
に な る よう に ) 16 個 
EN で 4 る 90 なら теи 2і- ші (0887) 
に な る と いう こと で す . た めし に 





ポポ ネネ 4 ビット 分 が 16 進 数 
の ひと けた に 当る 





жжжж ЕМ-77 を 有効 に 
使 お う 
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PRINT &H12 [JJ 

と する と , FM-77 は 10 進 表示 で 「18」 を 返し て きま す . 

いっ ぽう コン ピュ ー タ は 1 ピット を 最小 単位 と し て いま す が , 1 ピ 
ッ ト の 単位 で 動作 する こと は ほとん ど あ り ま せん . も ちろ ん こま か い 
指定 の と き は 1 ビッ ト ず つ , と いう こと は あり ます が , 4, 8 ピット 
と いう の が よく 使わ れ ま す . 4 ビッ ト は (24-16) G, ちょ うど 16 進 
数 の 1 ケタ 分 に 対応 し ます . 4 ビッ ト は し た が っ て , 0 一 FF ま で の 字 
を 使っ た 16 進 数 と ピタ リ と 合う の で す . 

0001 一 1 1000 一 8 1010-А 1111=Е 

と ぷう よう に で す . 

いっ ぽう , 8 ビッ ト (28-256, 0 か ら 始 め る と 255) で は 16 進 数 の 
表示 で は 最大 が FEF…… つま り 2 ケ タ に な り ま す . こう し て 16 進 数 と 
4, 8, 12, 16 ビ ッ ト が ピッ タリ と 対応 する た め に , な に か と 使わ れ 
る の で す . 見 れ ば 見 る ほど 16 進 数 は 頭 が クラ クラ し ます が , 要 は 慣れ 
の 問題 と いえ る で し ょ う . 

&HCOOF 
の つぎ に 大 きい 数 (つま り &HC00F 十 &H1) は いく つ で し ょ うか ? 
下 1 ケタ 目 の 〒F が ひと つぐ りあ が っ て , 下 2 ケ タ 目 の 0 が 1 に な り 
&HC010 

に な り ま す . で は &HC000 より ひと つ 少 な い 数 は ? 上 3 ケタ が すべ て 
くり さがっ て くる の で , すべ て の ケタ が 変わ り 

&HBFFF 

ie Dada. 


FM-77 に は ある 数 を 入力 する と 16 進 数 で 結果 を 返す 関数 が あり 
PRINT HEX$(3128) JJ 
PRINT HEX$(&HF012--&HFF) [J 
と いっ た よう に 使え ます . また , 16 進 数 を 10 進 数 に 直す と き は 
PRINT &HF111 [JJ 
と すれ ば , ちゃ ん と 10 進 数 に 変換 し て くれ ます . な お , 注意 し な けれ 
ば いけ な い の は 負 の 数 と 16 進 数 表示 の 対応 で す . 
PRINT HEX$( 一 65536) [JJ 
は エラ ー で は あり ませ ん . 結果 は 0 に な り ま す . な お 実際 に は 負 の 16 
進数 を 使う こと は まず あり ませ ん . 
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人 間 の 判断 ,。 コン ピュ ー タ の 判断 


* ま 3 AND 5 と は ? FM-77 に お ける 論理 演算 に つい て は 「F-BASIC 文 法 書 」 に 載っ て 
いま す . 真理 値 宜 と よ ば れる , AND, OR, XOR そ の 他 の 演算 の 原理 
が 分 り ま すか ら 前 の ペー ジ で 述べ た , 10 進 数 を 16 ビ ッ ト の 2 進数 で 表 
現し た も の と の 組合 せ て 求め る こと が で きま す . な お , 断 わ る まで も 
あり ませ ん が 「3 AND 5」 と は 「3 で あり 5 で も ある 数 」 と いう こ 
と で は あり ませ ん . AND は 1 を 真 , 0 を 偽 と し て 
(1:01-0 (1:1)=1 (0-1)=0 (0:01-0 
СБЫТ. си ЗАМ 5」 を 求め まし じょう 
3 салаты ЫЙ еы аы 
5 00000000000001 0 1 "\ 位 で AND を 演算 

AND 0000000000000001 
論理 演算 は ビッ ト 同 士 の 加算 や 減算 と は ちがう の で , それ ぞ れ の ケタ 
は くり 上 が りな ど は し ませ ん .「3 AND 5」 は 
0000000000000001 
に な り ま し た . 10 進 数 で いえ ば 1 と いう わけ で す . 








жж それ が コン ピュ ー タ は 内 部 で の 計算 や 判断 を ど , すべ て の 結果 を 「 真 」 か 
問題 だ 「 偽 」 か の どちら か で 判断 し ます . IF 文 に よる 処理 は , すべ て FM-77 


が 「 真 」 と 判断 する か 「 偽 」 と 判断 する か に よっ て いる わけ で す . f 





100 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ ñ ОК В = ニニ = ニニ ニニ ニニ ニニ ニニ ニニ ニモ ニニ デニ ニニ | ---------------------- 
119 / А ? 1 

120 DEFINT А-1 В ?5 

130 PRINT 

ЛӨ PRINT “ーー マーーーー ニ ーー ニー ニケ テコ ー エ ユニ ュー ン ; A= 8 :B= 9 = FALSE 


159 。 INPUT а 222022020200) --------------------- 
160 _ INPUT "В ";B 


ШКЕ ” C ТР ТТУ УРУР ИЛДЕТ CEERINNA GREAT нее нен 
180 PRINT "A=";(A>=5);";:"s "B="; (B<=3);"” "j А 28 

190 IF A>=5 OR B<=3 THEN PRINT "= TRUE":BOTO 210 В 24 

200 PRINT "= FALSE" 

ЖЕСЕ ШТІ "9е-ее-е------Э-------- し 

220 ' 


230 БОТО 130 











А AB の 2 つの 数 を 入力 し , OR の 条件 に 合う か どう か を 判断 させ る 





| は リタ ー ン キー を 
帰す こと を 表わし て いる 


* ま 判断 の 落し 穴 に ひっ か 
か ら な いよ うに ご 注意 を 
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う 人 間 が 頭 で 描 く 「 正 し い ・ ま ちがっ て いる 」 と いう 判断 と は まっ た 
く 関 係 を な く , コン ピュ ー タ に と っ て の 「 真 ・ 偽 」 が 前 提 に な っ て いる 
こと を お 忘れ な く . 

コン ピュ ー タ が 処理 を し た 結果 は , BASIC で は PRINT 文 で 求め る 
ШЕСЕ Т: 

結果 が 0 の と き ・…… 偽 

結果 が 0 以外 の と き …… x 
これ が FM-77 の 判断 で す . た と えば 「5 は 3 より も 大 きい 」 と いう の 
は まぎれ も な く 正 し いこ と で す が , FM-77 は どう 判断 する で し ょ うか 
? 

PRINT 5 > 3 [Ə 

ー1 

FM-77 の 結果 は 一 1 と 出 ま し た . 0 で は あり ませ ん か ら 「 真 」 で す . 
で は (2 ХОК 4) AND (4 ОК 5) は ? 

これ も 

PRINT (2 ХОБ 4) AND (4 OR 5) J 
で 求め る こと が で きま す ( 結 果 は 4 で 真 ) . 

PRINT 2 XOR 4 AND 4 OR 5 (Ј 
は どう な る で し ょ うか ? (演算 の 優先 順位 に よっ て 結果 は 別 で す ). 


左 の ペー ジ の リス ト は A と B と いう , 2 つの 変数 が IF 文 の 条件 を 満 
た し て いれ ば 「TRUE」 を 出力 する も の で す . 下 の リ スト は 日 本 語 の 感 
覚 で は 「A が 5 以上 か , 10 以 下 な ら 」 真 で ある . つま り A が 5, 6… 
10 の と き に 真 に な る よう に 思 を ます が , 本 当 で し ょ うか 7 





この 条件 を 満た す 数 A は b 
いく つ で し ょ うか ? 





100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ テニ ñ DR А = エニ ニニ ニニ ニ と ニニ ニニ コ ニ ニ ニニ ニニ ニニ 
118 | 

120 DEFINT А 

130 PRINT 

148 Ы DN asa suum =s ы 

150 INPUT "А "ҘА 

160 PRINT "й=";(А)=5);":";"А=";(А<‹=1@);" "j; 
17@ IF А>-5 OR <=19 THEN PRINT "= TRUE":BOTO 190 
189 PRINT "= FALSE" 

190. PRPNJ ニー ニム ニニ ニニ ニニ デ こ こっ ニ ニニ ュー ニニ ニー ニー с 

208 ” 

210 БОТО 150 
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すべ て の 式 は 


記号 で 与え られ る 








* 演 算 子 (オペ レー タ ) 
と は ? 


** 式 と 演算 子 





コン ピュ ー タ は 判断 を し , 計算 を し ます . 電卓 と コン ピュ ー タ の 決 
定 的 を 違い は , 判断 を させ る こと が で きる か どう か に ある , と いっ て 
も よい で し ょ う . と ころ で この 判断 や 計算 な を ど を 具体 的 に 命令 する も 
の は 何で し ょ うか ? それ ら は すべ て 記号 で す . この 記号 の こと を コン 
ピュ ー タ の 世界 で は 演算 子 (オペ レー タ : operator) と いい ます . + 
ペレ ー タ (操作 を する 者 , 操作 命令 記号 ) を “演算” と 訳し た の は 誰 
な の で し は ょ うか. 演算 と いう と 私 た ち は と か く “計算 " と 同じ だ と 考 
ТЕШЕ. 

コン ピュ ー タ に 2 つ 以 上 の 条件 を 与え る と き は , か な ら ず オペ レー 
タ を 使わ な を いと いけ ませ ん . 加算 を 命令 する 「 十 」 も オペ レー タ で す 
L, 大 小 の 比較 を する 「 ご 」 も オペ レー タ で す . も ちろ ん 論理 演算 を 
させ る と きも オペ レー タ を 使い ます . 


これ ら の オペ レー タ を 使っ た 表現 を 一 般 に 式 と いい ます . し た が っ 
て FM-77 に お ける 式 は じつに 幅 の 広い も の に な り ま す . 

3 十 5 А=8 В-Вжв A$= “77” 

A<8 X AND Y M=INT (А/В) 

な ど は みな 式 で す . コン ピュ ー タ に お ける 式 は すべ て 文字 か 数 字 で 返 

て きま す . も し A と いう 変数 に じっさい に は 100 と いう 数 値 が 代入 さき 
れ で いる と き (A ぐ 8) と いう 式 が 与え られ た と し まし ょ う . コン ピ 
ОЕЕО ИАЕА ОРС С ЖМ 92757 ЭА ТІЛІН 
ちがっ て いる "” など と 思っ て いる わけ で は あり ませ ム . 

式 の 結果 に つい て 私 た ち が 知 り た いと 思っ た と き , それ を 直接 的 に 
知る こと が で きる 命令 は 「PRINT」 です. 算術 的 な 式 で は コン ピュ ー タ 
は 算術 の 法則 に し た が っ て , その 結果 を 返し ます . 

PRINT 3+5 4 
な ら 「8」 と いう 数 字 を 出力 し ます . PRINT 文 を よく 理解 し て いな い 
と 「PRINT は 文字 を 画面 に 出し た り , 四則 演算 な どの 算術 的 な 計算 の 

画面 に 出す 命令 」 と 思い が ち で す が , それ だ け で は な い の で す . 
PRINT 命 令 は すべ て の 式 の 結果 . メモ リ に 代入 され て いる 変数 の 現在 
の 状態 (数 値 や 文字 ) な ど を 出力 する 重要 な 命令 で ある こと を お ぼ え 





ネネ ネ ※FM-77 に は どん な 
式 が ある の か 


※600 プ 2 と タイ プ し て リタ ー ン キー を 
押す と , FM-77 は これ を プロ グラ ム と 
解釈 する . た めし に LIST を と っ て み 
る と それ が ハッ キリ する 
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て お きま し ょ う . プリ ント 命令 が ある の と な い の と で は , まる で 違う 
こと に を な る 例 を 紹介 し ます . 

PRINT 600 ン 2 Л) 

これ は 画面 に 「300」 が 出 ます . で は 

600/2 [JJ 

と する と , どう な る で し ょ うか ?2FM-77 は 何 も し な い ? い いえ , FM 
-77 は あな た の 命令 に し た が っ て ちゃ ん と 受付 け ま す . 


で は 式 を 整理 し まし ょ う 
@ 算 術 式 (算術 演算 子 を 使っ た も の ) 

これ は 学校 で 習っ た 算数 と お な じ よ うに 数 学 的 を 計算 を する も の で 
すか ら , 詳し く は 説明 し ませ ん . た だ し 注意 点 が いく つか あり ます . 
まず 割る 数 を 0 に し て は いけ ませ ん . また , 計算 の 結果 は 誤差 が 出る 
こと が あり ます . た と えば 213 を 計算 きせ て くだ さい . 答 は 小数 を 含 
ん だ も の に な り ま す . 算術 式 の 立て か た に 注意 し まし ょ う . 
@ 論理 式 (論理 演算 子 を 使っ た も の ) 

これ は 別 の 項目 で お 話し まし た (18 ペ ー ジ 参照 ). 
ө 関係 式 (関係 演算 子 を 使っ た も の ) 

<, >, = а, その 組合 せ に よる も の で , 比較 式 と か 比較 演算 式 
な ど と 呼ば れる こと が あり ます . この 式 で 私 た ち が つ ま づ く の は 。, 日 
本 語 で は よく 「 以 上 」「 以 下 」 と いう 言葉 を 使う の に 対し て , ТОО 
り 大 きい 」「 〇 〇 より 小さ い 」 に 静 い こと で す . ある い は 「 よ り 小 さい 
ー 未 満 」 と いう 言葉 が ある の に 対し て 「 よ り 大 きい 」 に 対応 する 2 文 
字 の 熟語 が な いこ と , と も いえ ます . ご や ー を 使っ て 判断 文 を 書く と 
き に は 十分 に 注意 し て くだ さい . ちな み に FM-Logo に は 「<ー」( 日 
本 語 で いえ ば 以上 , 以下 に あたり ます ) と いう 考え か た が あり ませ ん ム . 
ある 関係 を 判断 する の は あく まで も 「 真 」 か 「 偽 ,」 に な っ て いま す 。. 
BASIC の プロ グラ ミン グ の 際 に も 参考 に すべ き で し ょ う . 

な お イコ ー ル (=) の 特別 な 使い か た と し て A=8 な どの よう に , 
変数 に 数 値 を 代入 する 命令 が あり ます . 
e 文字 式 

文字 式 (文字 列 式 ) で 使う 演算 子 は た だ ひと つ , r+) G+. 文字 列 
(つづ り : ス トリ ング スン strings) を 結合 し ます . 

な お 演算 子 を 使わ を な い 「123?」 な ども 式 に 扱う こと が あり ます . 
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TE ヨー タモ で メモリ 








キメ モ リ に は 番地 が 割当 て 


られ て いる 


* ポ ユー ザー が 自由 に 使え 
る メモ リ の 量 を 知る 方 法 





る メモ セリ マッ 


プ の 例 


コン ピュ ー タ は 電気 (電子 回 路 ) の 動作 で 計算 を し た り 判 断 を する 
こと は 再三 述べ まし た . も う ひ と つ , 忘れ て いけ な い の は 情報 を 蓄え 
て お く こ と が で きる こと で す . これ が メモ リ (memory : 記憶 素子 ) で 
+. 人 間 は 自分 の 都合 で 憶え たり 忘 れ た り , ある い は 外 的 な 条件 で 忘 
れ た り し ます 、 し か し FM-77 の メモ リ は 外 的 な 条件 で 忘れ る (つま り 
スイ ッ チ OFF) こと は あっ て も , それ 以外 の 場合 , 使う 人 が 指示 すれ 
ば それ に 従い , つぎ の 指示 まで お な じ 数値 な ど を 記憶 し ます . 
FM-77 に は 6809 と いう CPU (中 央 演算 装置 ) が 使わ れ て いま す が 
この CPU が 直接 管理 で きる メモ リ の 数 は 216 個 , つま り 65536 個 分 で す . 
この メモ リ に は 0 番地 か ら 始 まっ て 65535 番 地 ま で の , いわ ば メモ リ の 
区 画 が あり ます . 16 進 数 で いえ ば 0000 か ら FFFF ま で 番地 が 割当 て ら 
れ て いま す . た だ し いま 話し た 1 個 分 と いう の は 1 ビッ ト で は な く , 
8 ビッ ト 分 で す . つま り メ モリ の 単位 番地 は 8 ビット 分 を ひと ま と ま 
り と し じ で 管理 し ます . 


この 8 ビッ ト の こと を 1 バイ ト (уе) と いい ます . FM-77 を ON に 
7078 

25933 Bytes Free 
と いっ た メッ セー ジ が 出る の は “あな た が 自由 に 使え る の は 25933 バ イ 
ト 分 で す ” と いう こと を 知ら せ て いる わけ で す . 6809 は 65536 バ イト も 
の メモ リ を 持っ て いる の に , どう し て あな た が 使え る メモ リ が 半分 以 
ポポ で は まう の まう が 

それ を 知る た め に も , マニ ュ ア ル に 掲載 され た メモ リマ ッ プ を 見 て 
くだ さい . マッ プ は 16 進 数 で 書か れ て お り , それ ぞ れ の 番地 が どう 使 
われ て いる の か , ある い は 自由 に 使う こと が で きる メモ リ の 番地 の 範 
囲 を ど を 教え て くれ ます . FM-77 は メイ ン CPU と サブ CPU を 持っ て 
いま す が , 一 般 に 私 た ち が 使 える の は メイ ン CPU の , 番地 で いえ ば 若 
い ほ う で ある こと が わか り ま す . また 使え る メモ リ が 30 キ ロバ イ ドド が る れれ 
以下 に な る 理由 は BASIC ROM が RAM に メモ リ さ れる か ら と いう こと 
も 分 り ま す . な お , FM-Logo や OS-9 な ど を 使う と き は FM-77 の 押 
ボタ ンス イッ チ を 操作 し て , いっ た ん メイ ン メ モリ を すべ て 解放 し て 





ネネ ポメ モリ の 使い わけ で 
コン ピュ ー タ は 効率 よく 
運用 で きる 





※FRE は メモ リ の 残 量 を 知る た め の 関 
数 . 引数 (カッ コ の 中 に 入れ る 文字 や 
数 値 ) は , 文字 変数 領域 を 知る と き は 
"XP や YA など, 数値 変 数 領域 を 知る 
と き は 0 や 1 な どき を 使う (引数 は ダミ 
ー な の で , と くに 制限 が な い ) 
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35. 

な お , BASIC を 使っ て いる と き は 普通 . コ ンピュータ の メモ リ …* 特 
に メモ リ 番 地 は 気 に に し な く て も すみ ます . BASIC 自 身 が メモ リ 操 作 を 
管理 し て くれ る か ら で す . BASIC を 使っ て いて , メモ リ が 直接 関係 す 
る の は まず 使え る 量 が あと どの くら いな の か , と いう こと と , 使う 量 
を いく ぐつ に 設定 する か ,。 と いう こと で す . 


さき ほど メモ リ が どれ だ け 使 える の か を FM-77 が まず 知ら せ て くれ 
た 例 を 示し まし た . た めし に 

PRINT (*Х”) [J 
と し て くだ さい . FM-77 は 

300 
と 知ら せ て くれ ます . これ は FM-77 が 文字 を 扱う メモ リ と し て 300 バ 
イト 分 を 用 意 し て くれ て いる , と いう こと を 知ら せ て いる の で す . 
た めし に 文字 領域 を 1 バイ ト 分 だ け に 設定 し まし ょ う . 

CLEAR 1,7 
се 

PRINT FRE (`X”) [JJ 
と する と , “Out Of String Space”, も う 文 字 用 の メモ リ は あり ませ 
А, と いう わけ で す . その か わり この 状態 で 

PRINT ЕВЕ (0) (2 
と する と , こん ど は スイ ッ チ ON の と きよ り も 大 き を な を 数 値 が 画面 に 出 て 
くる は ず で す . この よう に EF-BASIC で は , メモ リ を 文字 用 と 数 値 用 
と に 分 け て 設定 で きま すし , それ ぞ れ が あと どの くら い 残 っ て いる か 
を 知る こと も で きま す . 

も う ひ と つ , これ は あたり まえ の こと で す が , FM-77 が 扱う 情報 が 
多けれ ば , 使う メモ リ も た くさ ん 必要 に な り ま す . た と えば 数 値 が い 
くつ で あっ た か , を 記録 きせ る た め に , も し , と て つも な く 大 きい 数 
値 を 正確 に メモ リ に 入れ る と する と , メモ リ も 当然 た くさ ん 必要 に な 
り ま す . 1, 235, 678, 991. 807 と いっ た 数 を 扱 お うと 思っ た ら FM-77 を 
どう 対応 さき せれ ば よい の で し ょ うか ? 

あら か じ め 倍 精度 型 の 宣言 (DEFDBL 文 ) を する か , 持 記 号 を 使え 
ば よい こと に な り ま す . し か し すべ て の 変数 を この 型 で 扱う と , 当然 
で す が メ モリ の ムダ 使い に を な る の で , じょう ず に 使い 分 け ま し ょ う . 
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キー ボー ド か ら の 入力 , いろ いろ 





* い ちば ん よく 使う の は 
INPUT 文 
※TNPUT А,В,С, …… と いう 書き 


か た も 可能 ただし, 入力 も た と えば 
9, АРУ Во 
け の 入力 を " , "を 入れ て 続け た あと に 
リタ ー ン キー を 押す の で , 使い に くい 


жж じょう ず に 使え ば 光っ 


て くる INKEYS$ 


キー ボー ド か ら の 入力 は コン ピュ ー タ の も っ と も 基本 的 な 使い か た 
の ひと つ で す . 多く の 場合 , 入力 と し て 求め られ る の は 変数 で す が, 
そう で な いも の も あり ます . いずれ に し て も キー ボー ド か ら の 入力 に 
は いろ いろ な スタ イル が あり ます の で , それ を マス ター し まし ょ う . 
INPUT 文 が 受付 ける の は 数 値 変数 と 文字 変数 の 両方 で す . サン プル プ 
ログ ラム は 3 つの 例 で 数 値 の 入力 を 求め て いま す . 行 番 号 120 は オー ソン 
ドッ クス な も の で , プロ ンプ ト (前 お き , さい そく ) の 文章 に 続い て セ 
ミコ ロン を つけ , 続い て 変数 A を 求め て いま す . 結果 は その 右 の よう 
(Ce ゲロ シズ kh の あら に ВОЕНА ЕНА ВАНЬ 
コロ ン で は な く , カン マ (, ) を 使う と , “9” は 出 ま せん . つき ぎの 変 
数 B は プリ ント 文 と INPUT 文 の 組合 せ で , 結果 的 に は 行 番号 120 と お 
な じ よ うな も の に な り ま す . も う ひ と つ は プリ ント 文 で プロ ンプ ト を 
(Ей, 行 を 変え た て INPUT さ せる も の で す . 


INKEY$ は 特別 を 使い か た に な り ま す . リ ター ン キ ー を 押さ な く て 
も よい が , 押さ きれ た キー の さい し ょ の ひと つ だ け を 受付 ける こと , キ 
ー が 押さ きれ な いと 空白 の 入力 と 見 な し て , 次 の 行 番号 へ と 実行 が 移さ 
れる こと で す . サン プル プロ グラ ム を 見 て くだ さい . 行 番号 130 で 「AS$ 
は INKEY $ で ある 」 と プロ グラ ム さ れ て いま す が , この 行 が 実行 さ 








INPUT X P 


100 


110 CLS 


120 


130 PRINT"B л 4797727 "; : ІМРОТ В 


140 
150 
200 









“хақан INPUT Зз ЗЕ ЗЕЕ 
ІМРИТ"А ñ 4797" 23 "ҘА 
PRINT"C ñ 4797727" 


INPUT С 
ЅОМ=А+В+С: РКІМТ "2° 774" є SUM 








100 “жығы ІМКЕҮЗ Жж 


110 CLS 


120 PRINT "А л 47972,9" 


150 А%= ІМКЕҮФ 
140 РКІМТ ñ$ 


180 PRINT "В л 4777727 24 
160 В%=1МКЕҮФ:ІЕ В%="" БОТО 160 


170 PRINT В% 











※ 空 白 : な に も な いこ と , 正確 に は ヌ 
ル (null). "7」 と いっ た 表現 が 使わ れ 
5. 名 は 1 文字 分 の 空白 に な る の 
で , 混同 し な いよ うに 注意 し た い . 本 
書 で は ヌル を 空白 と 表現 し て いる 


LINE INPUTX P 


※ リ ター ン キ ー を 押さ ず に 入力 で きる 
も の に INPUT$ が あり , 指定 文字 数 に 
な る と 自動 的 に 変数 に 代入 され る 


ネネ ポポ すべ て の 人 力 を 受付 
ける LINE INPUT 
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100 жез еее LINE INFUT жз ын 
110 ELS 

ІЗӘЗІЕТМЕСІМРІШ "ЕЗ227ТӘУТТЕ КҮйУУ ЛУД 
150 РКІМТ А% 

140 РКІМТ 

FS np ЕРУУ "УН 

150 PRINT B$ 


PTE TT NY 2 ЧТНІБ 15 ñ PEN"#"THAT IS АСАТ" 
"THIS IS А РЕМ":"ТНАТ IS А CAT" 


トド "リナ О FN 2 “THIS 15 А РЕМ": "THAT 15 ñ САТ" 
?Redo From Start 

Ко ТУ" t СӘУ" 9 "THIS 15 ñ РЕН” 

ТНІ5 IS ñ PEN 











れる と すぐ さま に FM-77 は 何 も 入 力 が な か っ た と 見 な し て , 行 番号 
140 の プリ ント 文 に 実行 を 移し , 空白 の 文字 を 出力 し て , つぎ の 行 番号 
150 に 移り ます . リス ト の 右側 の 実行 例 を 見 て も 分 る よう に AS を 出力 
する と ころ が 1 行 分 , 空 折 に な っ て いま す . 

INKEY $ に よっ て 文字 の 入力 を 受付 ける に は , 行 番号 160 の よう に 
書い て 「 キ ー 入 力 の 待ち 状態 」 を 作ら な けれ ば いけ ませ ん . INKEY $ 
の 使い か た で 多い の は 「 イ エス か ノー か 」「 や め る か 続け る か 」 な どの 
プロ グラ ム 実 行 の コン トロ ー ル 時 で す . リタ ー ン キー を 押さ な く て も 
よい の で , 速い 動作 や 操作 ミス を 防ぐ こと が 可能 で す . 


INPUT, INKEY$ は , それ ぞ れ 限定 され た 使い か た で あり , 限定 
され て いる だ け に 受付 け て し まえ ば その あと の 処理 は や さ し く な り ま 
. СОҚ), РР ИЧРО А 2032 АЛЫПС “コン ニチ スバ 
と 入力 する と エラ ー に な り ま す ( 文 字 列 を 入力 し た た め ). 

も う ひ と つの LINE INPUT 文 は 原則 と し て キー ボー ド か ら 入 力 さ 
れ た 文字 を すべ て 受付 ける よう に な っ て いる た め に , 応用 の 範囲 が 広 
рза ООА АС БОД >e УИ К ЙЛ су иа У 
や コロ ン な ど , ふつ う の 入 力 文 で は 文字 と は 見 を な さ な い , 特別 な 意味 
が 持た され て いる 記号 も , ちゃ ん と 受け つけ ます 。 ここ で は , BS$ は 
INPUT 文 に な っ て いる ( 行 番号 150)0 7:9, エラ ー に な っ た り , 場合 
に よっ て は キー ボー ド か ら 入 力 し た の に 変数 に は 代入 され な いこ と が 
ある こと が 分 り ま す . 








26 








どう ちがう ?1F と WHILE 








*IF 文 の 処理 


判断 を させ た いと き に 使う の は も ちろ ん IF 文 で す . 

IF 条件 THEN [処理 ] 

IF 条件 сото 〔 行 番号 〕 
と いう , 2 つの スタ イル が 基本 で , この 書き か た の 場合 は 条件 が 偽 な 
ら す ぐに 次 の 行 番号 へ と 実行 が 移さ れ ま す . IF 文 を 使う と き は , その 
結果 は か な を な ら ず 2 つ に 分 岐 す る こと を 忘れ を いで くだ さい . な お , T 
HEN 以 下 の 【〔 処 理 ] は ほとん どの コマ ンド や ステ ー ト メン ト が 使え ま 
すご だ し 

IF A< >0 THEN INPUT А 
(A が 0 で な か っ た ら , A を 入力 し な さい ) 
と いう 使い か た は で きま せん .「INPUT A」 を 別 の 行 に 書い て お き 
GOTO 文 で その 行 へ 飛ぶ よう に し ます . 

IF 文 に は さら に ELSE が 使え ます が , これ に つい て は 別に 詳し く 考 
k u al RU js う 

サン プル プロ グラ ム を 見 て くだ さい . これ は X(N) と いう 変数 に 数 





л 理 
値 を 入れ て ゆく も の で , 右 が IF 文 を 使っ た 場合 で す . 行 番号 120 で , М 
を まず 0 に セッ ト し ます . つぎ に トラ ッ プ (わな ) が 設け られ て お り 
N が 9 より も 大 きい と き は 行 番号 180 へ , そう で な いと き は 行 番号 140 

へ IF 文 と プロ グラ ム の 流れ へ と 行き ます . ここ で N が 1 つ 増 や され て , 変数 に 数 値 が 代入 され , 

その 後に 行 番号 130 へ と も どる よう に な り ま す . 行 番号 140 で N が 10 に 

100 “жж WHILE ・・・・ МЕМО *#** 100 "XX IF +o. THEN жн 

1: ラテ 4 イカ イス ウノ 219037 124: ッ テ イ カイ スウ ノ ニュ ウリ ョ 7 

120 N=@:CLS 120 N=@:CLS 

130 MHILE N <19 13@ IF N > 9 THEN 180 

14@ N=N+1 140 N=N+1 

150 LOCATE 9@,9:INPUT X(N) 150 LOCATE @,@:1МРИТ X(N) 

180 МЕМО 160 БОТО 130 

170 ' 170 · 

180 PRINT "N="iN 180 PRINT "N="』N 

1950 ' 198 | 

200 FOR 1-1 ТОМ 200 FOR 1-і TO N 

210 PRINT X(I); 210 PRINT Х(1); 

220 NEXT 220 NEXT 

230 END 230 END 














** 行 番号 を 意識 し な い 
で 使え る WHILE 文 


AWHILE と プロ グラ ム の 流れ 
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な り , X(10) か ら の 入力 作業 を 終え を る と , また 行 番号 の 130 に も どり , 
こと で トド トラップ に ひっ か が っ つて , 入力 作業 を 終 を る わけ で す . 


お な じ こ と を , WHILE 文 で 書き まし た . WHILE 文 は , そこ で 与え 
た 条件 が 真 を ほら , WEND で は さん だ 文 を 実行 する も の で す . サン プル 
プロ グラ ム で は N が 10 未 満 な ら 行 番号 140. 150 を な ん ども くり か え ぇ し 
ます . WEND (ダブ ル エ ンド ,。 つ まり ホワ イル エン ド の こと で す ) は 
行 番号 160 に 置か れ て いて , この プロ グラ ム の 同じ 行 番号 の IF 文 に お 
ける GOTO 文 と よく 似 て いま す . 

この 2 つ を 比べ て みて まず 気がつく の は , WHILE 文 と IF 文 と で は 
条件 の 設定 が まる で 反対 に を なっ て いる こと で すず す . IF 文 で は 与え た 条件 
の 式 が 真 を ら THEN 以 下 , そう で な いと き は 次 の 行 番号 を 実行 する の 
に 対し , WHILE 文 で は 与え た 条件 の 式 が 真 な ら 次 の 行 番号 か ら WE 
ND ま で を 実行 し , 偽 を # ら WEND の 次 か ら の 行 番号 を 実行 し ます . 

WHILE 文 の 副 次 的 を 効用 と し て は , サン プル の IF 文 の よう に 条件 
を 考え , し か も ルー プ を 作っ た と き に 戻り 先 を 行 番号 で 指定 し な けれ 
ば いけ な い の に 対し , WEND は 置く 位置 さえ 正しく 書く こと に 注意 す 
れ ば 飛び 先 や 戻り 先 の 行 番号 を 指定 し な く て も よい こと で す . WHI 
LE 文 は 行 番号 を 意識 し な く て も よい 分 , 進ん だ 考え か た と も いえ る で 
し ょ う . プロ グラ ム を 書く 人 に と っ て は 行 番号 その も の は 意味 を 持ち 
ませ ん . 意味 を 持た な い ど ころ か , 指定 行 番号 を まち が うと エラ ー に 
な る だ け の や っ か いも の , と いう 見 方 か らし て も , 行 番号 を 考え ず に 
すむ の は あり が た いこ と で す . 

な お IF 文 で は THEN 以 下 で 一 度 に いろ いろ な 指示 を 与え る こと が で 
きる の に 対し , WHILE 文 で それ を や ろう と する と , 場合 に よっ て は か 
な り 無 理 を 書き か た に な りか ね ませ ん . 慣れ な いう ち は WEND と WH 
ILE 間 は な る べく 科 潔 を 書き か た に し て お く の が よい で し ょ う . この 
プロ グラ ム で は WHILE と WEND の 間 に 2 つ の 行 番号 を は さん で いま 
す が , 行 番号 130, 140, 150, 160 を ひと まとめ に し た 多重 文 ( マ ル チ ス 
デ チェ トス メン ント) に し て も ) あら ちろ ん 下 し く 実行 きれ ます 。 これ は ほ は サン 
プル の 右側 の IF 文 に つい て も 同様 で ,. や は り 1 行 の マル チ ス テー トメ 
ント に まとめ られ ます . 

WHILE は また , 一 時 停止 用 に INKEY$ と 組合 わせ て キー 入力 待ち 
の 状態 を 作る プロ グラ ム に よく 使わ れ ま す . 
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IF—THEN—ELSEOf#UP:/- 





* 3 つの 数 の 中 の 最大 の 
も の を 求め る 








ЖІҒ--ТНЕМ--ІҒ--ТНЕМ 


3 つの 数 の 中 で 最大 の も の を 見 つけ る bp 





A, В, C の 3 つの 数 が ある と き , その 中 の 最大 の も の を 見 つけ る 
に は どう し た ら よ いで し ょ うか ? プ ログ ラミ ジグ 上 E は いい ろ な 方 法 
が 考え られ ます . まず , も っ と も 原始 的 な 方 法 は 

A>B な ら 残 り の C と A を 比べ て , A>C な ら A が 最大 

BA な ら 残 り の C と B を 比べ て , B>C な ら B が 最大 

C>A な ら 残 り の B と C を 比べ て , CB な ら C が 最大 
と いう 方 法 で ,。 サン プル の いち ば ん 上 が この 手法 に よる も の で す . こ 
れ は まち が いで は な い の で す が , ムダ な 部 分 が あり ます . 最大 値 は A, 
В, C の どれ か な の で すか ら A か B が 最大 値 で は を な か っ た ら , 自動 的 
に C が 最大 値 に を まり ます . し た が っ て , サン プル 1 の 行 番号 140 で , Б 
さわ ざさ ざ 比較 を する 必要 は あり ませ ん . この 部 分 を 書き 直し た の が 「IF 
THEN 2」 と いう サン プル で す . 

な お , IF ドーTHEN 一 IFーTHEN は 何 重 に で も 使え ます が , ここ で は 
2 重 に 使っ て いま す . 与え た 条件 が 真 を ほら THEN 以 下 に 進み , 偽 な ら 
そこ で 作業 は 停止 し て つぎ の 行 に 移る の は IF 一 THEN を 1 回 だ け 使 う 
の と 同じ で す . 





1008 '=====зш=====>=== ТЕ THEN 1 ========z=z====== 
110 ІМРОТ"А ";А: ІМРОТ "В "ӘР ІМРОТ "С "çC 

120 IF A=>B THEN IF А=>С THEN РКІМТ"МАХ="; А: ЕМ 
150 IF В=>А THEN IF В=>С THEN РКІМТ "МАХ="; В: ЕМ 
140 IF С=>А THEN IF С=>В THEN РКІМТ"МАХ="; С: ЕМО 


10@ '=============== JF THEN 2 =з====шиикшизапкяш 
110 ІМРИТ"А ";А: ІМРОТ"В ";: В: ІМРОТ"С С 

120 IF А=>В THEN IF А->С THEN РКІМТ"МАХ="; А: ЕМО 
130 IF R=>ñ THEN IF В->С THEN РКІМТ"МАХ="; В: ЕМО 
140 РКІМТ"МАХ-"; С: ЕМ 


ТИЙ '=============== IF THEN 3 s======="========= 
110 INPUT"A ";ñ:INPUT"B ";B:INPUT"C С 

120 IF А->В AND ñ=>C THEN PRINT"MAX=";Añ:END 

130 IF В->А AND B=>C THEN PRINT"MAX=";B:END 

140 PRINT"MAX=";C:END 














**IF—THEN—ELSE 
は , ほど ほど に 





ДЕШІ! 





合 IF 一 THEN 一 ELSE 


※ バ グ : プロ グラ ム 上 の 小さ な まち が い 
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ТІК THEN 3」 は , IFーTHEN を 2 重 に 使う 代り に 論理 演算 子 を 
使っ た 例 で す . IF 一 THEN 一 IF 一 THEN は 真一 真 の と き , さい ご の TT 
HEN 以 下 を 実行 し ます か ら , “АМП” を 使っ た の と 同じ こと に な る わ 
けけ! でき と いう ウ わけ で 抽 圧 の 30 る の カジ シグ VS ЕИ ТС 0 
し て いる わけ で す . 

IFーTHEN は , 与え た 条件 が 偽 の と き は すぐ に 次 の 行 へ と 移る の に 
対し て , IF 一 THEN 一 ELSE は 与え た 条件 が 真 を なら THEN で 命令 し 
る 5 信人 な 5RTSE СС Е ЭТО. 

ELSE 文 の 形 と し て は 


ELSE GOTO ( 偽 を なら 指定 行 番 号 へ ) 
ELSE 処理 ( 備 な ら 指 定 の 処理 を する ) 
ELSE IF ( 偽 を な ら も うい ち ど 条 件 を 与え る ) 


な ど が あり ます . 

IF А-10 THEN ОО ELSE IF А-0 THEN へ へ ELSE хх 

(も し A テ 10 な ら 〇 〇 を , そう で な く Aー0 な ら へ へ を , そう で な い 

と き ・…… つま り A=10 で も A テ 0 で も な けれ ば メメ を 実行 ) 

と いっ た よう に , ELSE 文 も 何 重 に も か さ ね て 使え ます . 

下 の サ ンプ ル は ELSE 文 を 使っ て , А, В, C の 3 つの 数 の うち の 
最大 の も の を プリ ント する も の で す . 左 の ペー ジ の 「IEF THEN 3, 
ざま だ きき お な な буа Аел ЕТЮ 60 ЕБЕ ІІ? 
と , ひと つの 行 番号 の 中 で 多く の 判断 を させ る こと が 可能 に な る た め , 
プロ グラ ム の 流れ と し て は 単純 に を る と いう 利点 が あり ます . その 反 
面 。 い くつ も いく つも ELSE 文 が 続く と , プロ グラ ム が 読み に くく な 
っ た り , それ に 伴 な っ て 与え た 条件 の うち の どれ と どれ を 判断 させ て 
いる の か が 混乱 し た り し ます 。 ョ 1 行 で 長い 文 を 書く と , バグ が 出 た と 
き の 修正 が めん どう に な る こと も あっ て , ほど ほど に し た ほう が 扱い 
や すい と いえ ます . 

を お IF 文 を 使う と き の 注意 点 は , 判断 を させ た あと の 処理 と , 処 
理 後に どの 行 番号 を 実行 する か の , 流れ を よく 見 る こと で す . 





100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニテ IF THEN ELGE і ================ 
110 ІМРОТ"А ";A:INPUT"B ";B:INPUT"C ";С 
120 IF А=>В AND ñ=>C THEN PRINT"MAX=";A ELSE IF В=>А AND B=>C THEN PRINT"MAX=";B 


ELSE PRINT"MAX=";C 
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FORNEXT, 使い か た の 基本 








+ くり返し の 回 数 指定 





100 “жж FOR NEXT & ";" ** 
110 “SAMPLE 1 

120 FOR I=1 TO 10 

130 PRINT "А"; 

140 NEXT I 

150 ' 
15@ РКІМТ"Х" 
170 END 


100 
110 


“жж FOR NEXT & ";" жж 
“SAMPLE 2 

120 FOR 1-1 TO 10 

150 PRINT "A"; 

140 NEXT I:PRINT 

150 ' 

160 PRINT"X" 

170 END 


100 
110 


жж FOR NEXT 
'SAMPLE 3 

120 FOR 1-1 TO 1Q 
130 PRINT "A"; 
140 NEXT І: РКІМТСНЕФ (13) 
150 ・ 

100 PRINT"X" 

179 END 


る ЫЫ: РЕЗ 











る FOR 一 NEXT と セミ コロ ン 


※F ド OR-NEXT 文 の 制御 変数 に は よく 
rL J K」 な ど が 使わ れる . これ は フォ 
トラ (FORTRAN) と いう プロ グ 

グ ゲ 言 語 で の 使わ れ か た を BAS- 
1 が 受け つい で いる た めで , 一 種 の 習 
慣 に な こだわ る 必要 は な 


いい 


) て いる が , 


FOR 一 NEXT は , この 文 の 間 に は さん だ 命令 を 実行 する も の で す . 
使い か た に は いろ いろ を な バリエーション が あり ます が , その 基本 は つ 
ぎの 2 つ で す . 

の 単純 を くり か え し 回 数 と し て の 使い か た 

OFOR で 使う 制御 用 変数 を 利用 する 使い か た 

くり か え し の 回 数 指定 で は , 変数 に な に を 使っ て も か まい ませ ん ・ 
た と えば 10 回 の くり か え し な ら 

FOR 1=0 TO 0.9 STEP 0.1 

FOR !=9 TO O STEP 一 1 

FOR 1=101 TO 110 
と いっ た 使い か た は どれ で も お な じ こ と で す . FOR 一 NEXT を 使う 上 
で , 注意 し な けれ ば いけ な いこ と の ひと つ は 文字 出力 の と き に 使う セ 
ミコ ロン と 出力 され る 文字 列 の 関係 で す . 左 の プロ グラ ム は , “А”& 
いう 文字 を 10 回 。 続け て 出力 する た め に , 「“A" ij」 と いう 形式 を と っ 
た も の で す . サン プル 1 を 見 て くだ さい . 行 番号 160 で “X"” を 出力 し 
ます が , サン プル 1 で は 

AAAAAAAAAAX 
と いう 形 で 出力 され ます . FOR 一 NEXT を 10 回 くり か え し て , この ル 
ー プ か らち 抜け 出し て も , セミ コロ ン は “生き て " ゅ いま すか ら , カー ン 
ル は 依然 と し て さい ご の A の 文字 の あと に ある た め , Х と いう 文字 は 
A の うし ろ に つく わけ で す . 

サン プル 2 は, МЕХТІ の あと に PRINT 文 を つけ まし た . {ТЕ = 
140 の PRINT 文 が 実行 さき れる の は , FOR 一 NEXT の ルー プ 動 作 を 終 
えた あと の 1 回 だ け で す . ここ * 空 白 の 文字 を 出力 し , キャ リッ ジリ 
ター ン さ れる た め 

AAAAAAAAAA 

Х 
と いう 形 で 出力 され ます . 

サン プル 3 は PRINT 文 の 代り に , キャ リッ ジリ ター ンコ ー ド を 出力 
し 2 さも の 、 で 結果 的 に は サン プル 2 と お な じ に な り ま す . АС НЫ; 
PRINT 文 を 使い ます . 








1! (9 リセ イト" ) 6 sec 


1404429) 3 sec 


人 実行 時 間 の ちがい 


残り 回 数 を 知ら せる Py 





100 “жая FOR NEXT TIME +++ +++ +++ + +++ 
110 MIDTH 40,20:С15 

120 DEFSNG I:GOSUE 210 

130 FOR I=1 TO 10000: МЕХТ 


140 РКІМТ"І (Э>2ЗАКҒГ) "ТІМЕ; "бес" 

150 PRINT 

160 DEFINT I:GOSUB 210 

170 FOR 1=1 ТО 10000: МЕХТ 

180 РКІМТ "17 (0177) ТІМЕ; "вес" 

190 END 

208 ” 

210 ТІМЕ%-"00:00:00“:КЕТИКМ /,....747 リセ 9 ト 











FOR 一 NEXT に 使う 変数 は , FM-77 の スイ ッ チ ON の まま で は 単 精 
度 に を っ て いま す (FOR 一 NEXT に 限ら ず , すべ て の 変数 が 単 精度 な 
の で す が ). も ちろ ん この まま で 使っ て も よい の で す が , 実行 速度 を 上 
げた いと き で , 条件 が 許さ れる の な ら , 整数 型 の 変数 を 使っ た ほう が 
効果 的 で す . 上 の プロ グラ ム は FOR 一 NEXT を 1 万 回 くり か え し た と 
き の , 変数 の 型 と 実際 の 処理 時 間 の 違い を 見 る も の で す . 整数 型 で は 
単 精度 の 約 2 分 の 1 の 時 間 で FOR 一 NEXT ル ー プ を 実行 する こと が 分 
り ま す . 整数 型 を 使っ た と き , くり か え し は 65,536 回 まで で きま すか 
Е 7 Жак жай” SE 

また , 大 きい 数 値 か ら 小 さい 数 値 へ と , 逆 に 使う こと が 効果 的 な 場 
合 も あり ます . た と えば 大 量 の デー タ を 配列 に 読み こむ と き な ど は , 
読み 残り が いく つ な の か を 画面 に 知ら せ て お く と , 使い 手 は イラ イラ 
せ ず に すみ ます . 

下 の プ ログ ラム は その サン プル で す . X(D, Y (①) は 1=360 一 0 と , 
逆 に 読み こま せ て いて , どの くら い 待 つか を 行 番号 130 で 知ら せ て いま 
+. FOR 1-0 ТО 360 と し て , 行 番号 130 を (360 一 1 と し て も , 
お な じ こ と で す が , 前 者 の 方 が スマ ー ト で す . 








100 ‘========== FOR NEXT 23% М4/9А4)/ ヨミ コミ SAMPLE = ニニ ニニ ニテ ニニ ニモ ニ 
110 DEFINT I:DIM X(369) ,Y(369) jPA1= く .14159:MIDTH49,20:CLS 

120 FOR I=360 TO @ STEP -1 

130 LOCATE Q@,Q:PRINT И51М6"####";1 °........./1)Л1470 Ба? 
14@ X(1)=140*#SIN(I*PAI/180):Y(I)=70@*COS(”(I*(PAI/1B0+.2*PA1)) 
150 NEXT I 

155 ' 

17@ CLS:FOR 1-0 TO 360:PSET(300+X (I),100-Y(I)):NEXT І 

180 GOTO 180 
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FOR 一 NEXT と 順列 , 組合 せ 問 是 


* ま 3 人 が いる 時 , 204 X 人 が いる と き , 1 列 に 並ぶ と し た ら そ れ は 何 通 り に な る で し ょ う 
び か た は 何 通 りか ? か ? 数 学 で いう 「 順 列 」 の 問題 で す . 答 は X! (X の 階 乗 ) に な る , 
つま り (X) x (Xー1) x (Xー2)…… x (メー(Xー1)) で す . た と えば 3 
人 な ら 3X2 メ 1 一 6 通り の 並び か た に な り ま す . 
これ を コン ピュ ー タ に させ まし ょ う . 例題 と し て 3 人 を 考え ます . 
FOR 一 NEXT は 3 重 の ネス ティ ング に な り ま す . それ ぞ れ は 1 か ら 3 
まで 変化 し ます が , ある ルー プ の 変数 が 1 の と き , 他 の ルー プ の 変数 
が 1 …… つま り 同 じ 数 に を る こと は あり ませ ん . し た が っ て プロ グラ 
ム の 中 に それ ぞ れ の 変数 が 同じ 数 に を な っ た と き , その ルー チン を 飛ば 
し て や る 文 を 書く 必要 が あり ます . サン プル プロ グラ ム の 行 番号 150, 
170 は その た め に 書か れ て いま す . 
行 番号 170 を 
IF (I=J)OR(J—K)OR(I=K) THEN 200 
と し て も よい の で す . この 書き か た の ほう が 基本 的 に は 正しい の で す 
Ж, 1 ユーJ の と き は すでに 行 番号 150 で , 行 番号 210 へ 飛ば し て いる の で 

















※ ネ ステ ィング : 入 れ 子 構造 実際 に は 行 番号 170 の (I=J) は 意味 を 持た な いた め , 省略 し て いる わけ 
h: + 
100 ‘============== X су) ナラ う ヒ "有力 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ A 
118 DEFINT ñ-Z:N=0:X=3:WIDTH 80,20:CL5 
12027 


130 FOR 1-1 TO X 

149 FOR J=1 TO X 

150 IF I=J THEN 210 '.......... ュー オナ ッ "カス イリ" ョ 
1608 FORK=1TOX 

170 IF (J=K)OR(I=K) THEN 200 '..4fu"2"3 イッ" ョ 
180 N=Ntl еннен о 5 だ ュ フル 9 NSS 
190 PRINT И51Мб"##.##+## ";1;0;К; 

200 NEXT K 

210 NEXT J 

220 NEXT I 

230 ' 

240 PRINT:PRINT 


3 人 の 並び か た 250 PRINT USING" 0 2° 22716") ### КЛА!т* л @";N 





DS 2% 161302555354 42,52715 2 52241 





プロ グラ ム 実 行 結果 P | % уіл 8 トト オリ テス Ф 
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100 еен X 7 7277 Ү Э КОЙА 75771 жж 


110 

120 DEFINT A-Z:WIDTH80,20:CLS 

130 X=5:Y=3 “!....... 9 コノ ナカ カラ 5 329 М/”2 
140 N=Ü '.......,. 7 ミア セス リ 19289971749 
150 ' 


160 FOR I=1 TO (Х-2) 
170 FOR J=I+1 ТО (Х-1) 


180 FOR K=J+1 TO Х 
190 ' 

208 N=N+1 「・・・・7 ミ 7 リセ ス 9 ЛОуЬ 

210 PRINT ШИ51М6"##-##-## ";1;0;К; 
“7% Ë 

230 NEXT K 

240 NEXT J 

250 NEXT I 

269 ' 


270 PRINT:PRINT 
280 РКІМТ USING"8 757771 ### 3 т°л @";N 








4 
5 


+ кл 
. 


1. 
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**5 枚 の カー ド か ら 3 枚 
を 取出 す 組 合せ は ? 





組合 せ , と いう 問題 も も ちり ます . た と えば 5 枚 の カー ド か ら 3 枚 を 
取出 す 場 合 , それ は 何 通 りあ る の だ ろう か ? と いう 考え か た で す . С 
れ も 数 学 的 に は X 個 ある も の か ら Y 個 を 取出 す 組 合せ は 

(X!)—[Y! х(х—ү)! 1 
と され て いま す . 5 個 の 中 か ら 3 個 を 取出 す の な ら 

(5х4х3х2х1)--Г(Зх2х1) х (2x1) ] =10 
(не Ze О ы, 

この プロ グラ ム で は 1=1 ТО 3, J=I+1 TO 4, そし て K=J 十 
1 ТО 5 に し て いま す . J,K と いう 変数 に それ ぞ れ 1,J を 使っ て いる 
こと に 注目 し て ぐだ さい. も ちろ ん 前 の プロ グラ ム の よう を な 判断 文 を 
書く よう な 考え か た も で きま す . た だ し 並び か た と は ちがっ て 組合 せ 
で お の 5 NE び が だ の (NRN20S0SUONEN(3 2 уа о Ф 
と し て 扱う の に 対し , 組合 せ で は この 両者 は 同じ も の に な り ま す . 5 
枚 の カー ド か ら 5 枚 を 取出 す 組 合せ は 1 通り し か な く , 5 枚 の カー ド 
の 並び か た は 120 通 りあ り ま す . 
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乱数 を じょう ず に 使い まし ょ う 





* A 以上, B 以 下 の 整 数 を 
発生 させ る に は 


жж, 新しい 乱数 を 出 
す 方 法 


АДЕ, B 以 下 の 整数 を 発生 


実行 の た びに 新しい 乱数 を 発生 する プロ グラ ム bp 


乱数 は 統計 学 そ の 他 の シミ ュ レ ーション , 身近 な と ころ で は ゲー ム 
な ど に 応用 され ます . F-BASIC の 乱数 は 0 以上 , 1 未満 まこ と は よ 
く 知 っ て いま す が , 実際 の 応用 で は この 乱数 を 整数 化し て 使う こと が 
多い の で , INT と 組合 せま す . 


INT (RND) 

と いう 文 で 得 ら れる 乱数 は つね に 0 で す . また A を 整数 と し て 
INT (RND* А) 

で は , 0 以上 , A 未 満 の 整数 に な り ま す . 


INT (RND * В) +A [Ж £= I+ INT (A+ АМО ж B) ) 
は A 以上 , А-ЕВЖїйЮ ДЫК ЛЧ 5 %?. で は 《A 以 上 , B 以 下 〉 の 整 
数 を で た ら め に 発生 きせ る に は どう (ee БАСДЫ 09000 

INT (A 十 RND* (В-А--1)) 
に な り ま す . 


乱数 を 使い こなす うえ で 注意 し な けれ ば いけ な い の は , ふつ うに 使 
っ た と き は , RUN さ れる た びに お を な じ 順 序 で 乱数 が 発生 する こと で す 
で すか ら 

100 PRINT INT (RND * 10) 








100 '============= ラッ スウ ノ u" wy 1 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
110 ' 

120 DEFINT A-7:MIDTH B0,20:CLS 

130 РБІМТ" А イッ " ョ ウ B 4Л/ 52293 ñat49tq2 *" 

140 INPUT "A л 4797" 20 "ЗА 

150 INPUT "В л 479772Л "В 

160 IF (В-А)<@ THEN PRINT"N8!!!"s60TO 130 

170 ' 

180 FOR J=1 TO 20:PRINT INT(ñ+RND*#(B-ñA+1));:NEXT 
190 ' 

200 FRINT:PRINT 

210 GOTO 140 








100 '======== ラリ スウ / "NU 2 ニニ ニニ ニニ ニニ ニニ 
110 IF ТІМЕ>50000 THEN TIME$="Q0:00: 00" 
120 RANDOMIZE (TIME) 

130 PRINT INT(RND+*10) 
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1002 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ フリ スリ ウノ 0*%9)0 3 ニニ ニニ ニニ ニニ ニニ ニニ = ェ ニ ニモ ニニ ニニ ニニ ニニ ニニ テニ 
18” жж 94209 29 コロ カラ クト キノ "л" J テカ 9 #% 

120 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ ニテ ニニ ニニ ニ ェ エニ ニニ ニニ 
130 ' 


140 DEFINT A-Z:DIM WA(12):WIDTH 80,25:CLS 

150 RANDOMIZE:KAISU=200 

160 '2%/ 3) 179749 モト メ イル 9 バフ スウ ニー イル 

170 FOR 1=1 TO KAISU 

180 SAIKORO1=INT(1+RND*6) :SAIKURU2=INT(1+RND#6) 
190 KEI=SAIKORO1+SAIKORO2:WA(KEI)=WA(KEI)+1 

299 NEXT 1 

210 "79 カノ / бао” 

220 FOR 1=2 TO 12 

230 LOCATE @,І:РКІМТ USING"### ";1;:РКІМТ STRING*(WA(I),"*");" "WA (I) 
240 NEXT I 

250 END 











と いう プロ グラ ム で , 0 一 9 まで の 整数 を 発生 きせ た と き , まず RUN 


Random Nuaber Seed to 30767)? 251 


2 ЖІПТІ б を させ て , た と えば 「8」 が 出 た と し まし ょ う . も うい ち ど RUN を させ 
i ишинин 29 て みて くだ さい . や は り 「8」 が 画面 に 出 ま す . 乱数 だ か ら プ ログ ラム 
ЕНІТІТІТІТІТІТІТІГІНІ ЕСІ 


КҮНЕ 実行 の た びに まっ た く で た ら め の 数 が 発生 する だ ろう , と 思っ て は い 


ининин 1 け ま せん . プロ グラ ム 実 行 の た びに まっ た く で た ら め の 乱数 を 発生 き 
н 3 せ た か っ た ら , た と えば 
90 RANDOMIZE (TIME) 
1) i т 100 PRINT INT (RND * 10) 
どい っ だ ラフ る て Буз Жз ТЕ S pu S ty ІС k 
て , RUN の た びに 新しい 乱数 が 発生 し ます . た だ し , いま の プロ グラ 
ム に も 落し 穴 が あっ て , TIME (FM-77 の 内 蔵 タ イマ . 実際 に は 秒 数 ) 
が 32767 を 越え る (スイ ッ チ ON 後 , 約 9 時 間 ) と , 行 番号 900 で エラ ー が 
発生 し ます . ラン ダマ イズ を 使っ た と き は サン プル プロ グラ ム の よう 
に , タイ マ を リセ ッ ト す る 文 を 書い て お け ば よい で し ょ う . 
上 の プロ グラ ム は 2 個 の サイ コロ を 振っ た と き の 目 の 合計 が , どの 
な 分 布 に を る の か の シミ ュ レ ーション で す . それ ぞ れ の 目 が 出る 
確率 は 数 学 的 に 求め られ ます が , 画面 で 見 る の も 楽し いも の で す . こ 
の プロ グラ ム で は 2 一 12 ま で の 目 に 配列 変数 を 使い (WA (D), FOR 
ーNEXT の ルー プ の 中 で その 目 が 出 た 回 数 を カウ ント させ て いま す . 
た と えば 4 が 出 た ら , WA (4) は ひと つ そ の 数 を 増やし ます . ここ で 
は サイ コロ を 200 回 振ら せ て いま す . 
乱数 と いっ て も , ある 種 の 「 ク セ モ 」 が ある こと が 分 る で し ょ う 
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関数 と その 考え か た 


* 関 数 と は 関数 (function) は , 数 学 の 世界 で は 変わ りう る 数 と , それ に 対応 す 
る 数 を ど を , それ ぞ れ 文字 で 表わし た 式 で 説明 され ます . た と えば ヶ ー 
2 一 1 と いっ た 式 は > (独立 変数 ) が いろ いろ な 値 を と っ た と き に , (従属 
変数 ) が どう 変わ る の か を 表わす 2 次 関数 で す . 
BASIC の 関数 は 広い 意味 で は 数 学 の 関数 と 対応 し て いま す が , も っ 
と 自由 で 広い 範囲 の も の を 指し ます . を お, 独立 変数 に 相当 する も の 
を 引数 (argument) と いい ます が , 引数 は 数 値 だ け で な く , 文字 列 が 
使え を ます し , 従属 変数 に 相当 する も の も 数 値 と 文字 列 に を な り ま す . で 
は 関数 の いろ いろ を 見 て ゆき まし ょ う . 











* 玉 幅 の 広い , BASIC の 数 値 が 引数 で , 数 値 が 返さ れる も の 
関数 数 値 関数 と 呼ば れる も の が これ に 相当 し ます . 三角 関数 (SIN, CO 
5, ТАМ), 逆 三角 関数 (ATN), 絶対 値 (ABS), 指数 関数 (EXP), 
平方 根 (SQR), 正負 判定 (SGN) , 乱数 (RND) な ど で す . BASIC 
特有 の も の と し て は CSNG, CINT, CDBL な どの 変換 関数 が あり ま 
+. 
e 文字 列 が 引数 で , 数 値 が 返さ れる も の 
ASC (文字 列 の 最初 の 文字 を , ASCII コ ー ド に 従っ た 10 進 数 で 返 
+). ВІ: ASC (“А”) の 結果 は 65 
INSTR (指定 し た 文字 列 の 中 か ら , 見 つけ た い 文 字 列 の 位置 を 探し 
て 10 進 数 で 返す ) 
LEN (文字 列 を 与え る と その 文字 数 を 返す ) , VAL (数 値 化 ) 
@ 数 値 が 引数 で , 文字 列 が 返さ れる も の 
НЕХ $ (16 進 数 を 文字 列 で 返す ), OCT$, CHR$, STR$ 
e 文字 列 が 引数 で , 文字 列 が 返さ れる も の 
LEFT$, RIGHT$, MID$, STRING$ 
な お, 以上 の 関数 は , 引数 が 1 個 だ け で な く , 文字 列 と 数 値 を どの 
組合 せ の も の が ある こと , 変数 だ け で は な く 定 数 も 使え を る な ど と いっ 
た こと が ある の で 注意 し て くだ さい . 
その ほか の 関数 と し て は キー ボー ド , メモ リ , ファ イル な ど と や り 
と り を し て 得 ら れる も の が あり ます . 
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本 格 的 な プロ グラ ム 人 作り 





38 





READ--DATA の いろ いろ な スタ イル 


デー タ 数 を カウ ント す READ 一 DATA 文 は . プロ グラ ム の 中 に デー タ が し まえ る の で ファ 
る イル 操作 な し で いろ いろ な 処理 が で きま す . サン プル の さい し ょ は デ 
ー タ の 数 が いく つ あ る の か を まず カウ ント (か ぞ え る ) する も の で す . 
DATA 文 の 最後 に 「 一 9999」 を 書き , これ は ダミ ー の デー タ と し て , 
実際 の デー タ が いく つか ある か を 調べ ます . 応用 と し て は , た と えば 
デー タ を 配列 に し まい た い 時 , まず デー タ 数 を カウ ント し , RESTORE 
し て か ら , DIM 文 と FOR 一 NEXT を 組合 せ て 
DIM X(N) 
FOR 1-1 TO N: READ X (N) : NEXT 
Е k に な りり ます. 
また 次 ペー ジ 左 の プロ グラ ム の 行 番号 200, 210 の よう に すれ ば 目的 
の 数 の 空 向 を 含む 文字 列 が READ さ れ , 右 づ め の 文 字 列 が 作れ ます . 











жж “F| L DATA X 文字 列 を READ 一 DATA す る と き は 注意 が 必要 で す . DATA 文 で は , 
個々 の デー タ を 区 切る た め に カン マ ( , ) を 使い ます か ら も と の 文字 
列 に カン マ が ある も の は DATA 文 と し て 使え ませ ん . サン プル の 『 文 
字 列 の READ" で は 行 番号 160 の DATA は 2 つの 文字 列 と し て 読込 ま 
れ ま す . 行 番号 170 は いく つの 文字 列 と し て 扱わ れる で し ょ うか ? 14 
6 ら で 3 づ (カレ マ の 合計 数 士 1). つま り 

①THIS ② 空 白 ( ヌ ル ) ③ 空 白 (ヌル ) @IS (ОА ⑥CAT 

に な り ま す . 行 番号 180 や 190 の よう に , ダブ ルコ ー テ ーション で 囲む 
と 「YES, THIS IS」 と 「THAT : THAT」 と いう よう に , それ ぞ れ ひ 
と つの 区 字 列 と し て 読ん で くれ ます . 


ネネ ※ ネ リス ト ア 文 , 2 つの な お DATA 文 は プロ グラ ム の 行 番号 の どこ に 書い て も か まい ませ ん . 
使い か た RESTORE の 指定 が な い 時 は 行 番号 の 若い 順に 読ま れ て ゆき ます CDA 
TA 文 の 位置 " の プロ グラ ム 参 照 ). 

RESTORE 文 で , その 文末 に 行 番号 を 付け な い 時 は , 行 番号 の 若い 
順に 読ま れ て ゆき ます . “RESTORE"” プロ グラ ム は その 見 本 で す . 
サブ ルー チン で デー タ を 5 個 ず つ 読 み , それ を 画面 に 出力 する よう に 
な っ て いま す . 
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まず 行 番号 120 で 「RESTORE 170」 と 行 番号 を 指定 し て いる の で , 
DATA は 行 番号 170 以 降 の も の が 読込 み の 対 象 に な り ま す . すなわち 

1028, 2050, 3040, 5010, 10588, 25, …… 
と いう DATA 群 に な り ま す . この うち の 5 個 が 読込 まれ る こと に な り 
ЧЕЗ, 

つぎ は 行 番号 140 で , 「RESTORE」 と 書か の れ て いる の で 

5160, 2020, 47777, 1028, 2050, 3040, ---- 
が 読込 まれ る 対象 の DATA 群 に を な る と いう わけ で , や は り そ の うち の 
最初 の 5 個 の デー タ が 読ま れる の で す . この プロ グラ ム を 実際 に 走ら 
せ て みる と , いま 説明 し た 順序 で 数 字 が 出力 され る こと が 分 り ま す . 

グラ フィ ックス の プロ グラ ム な ど に も DATA 文 は 多く 使わ れ ま すし , 
RESTORE 文 を じょう ず に 使う と 効率 的 を も の に な り ま す . 





< マ READ 一 DATA の サン プル プロ グラ ム 





100 'READ DATA == テ "-2 メ 9 カウ フト == 100 "READ DATA == РАТА7*`2/ イチ == 
110 N=Q 110 DATA 100,500 

120 READ ПАТ 115 FOR I=1 TO 5 

130 IF DAT=-9999 THEN 150 120 READ Х:РКІМТ X, 

140 N=N+1:60TO 120 150 DATA 500,10 

150 PRINT" テ *-929="jN 140 DATA 2 

160 END 150 NEXT 

170” 





180 DATA 1,2,5,50,500,200 

190 DATA -50,82,-55,054 

200 DATA -9999 : 'КЕАр 2847439 
100 "READ DATA == RESTORE == 


110 

100 'READ DATA == モッ "ルリ / ノ READ == 120 RESTORE 170: 60508 210 

110 MIDTH 8@,25:С15 1308 РКІМТ 

120 READ ҮФ:ІҒ Y$="ENDEND" THEN END 140 ВЕЗТОКЕ: 60508 210 

150 РКІМТ Y$ 150 ' 

140 БОТО 120 160 DATA 5169,2929,47777 

150 ・ 179 DATA 1028,2050,3040,5010 
169 DATA THIS IS А PEN,THAT IS А CAT 180 DATA 10588,25,26666,21,-500 
170 DATA THIS,,, IS, ,A,CAT 190 END 

180 DATA "YES,THIS 15" 200 ' 

199 DATA "ТНАТ: ТНАТ" 210 FOR I=1 TO 5 

200 DATA" THIS IS А PEN" 220 READ X:PRINT USING"####4,"; X 
210 DATA" ОН! THAT 15 А САТ" 230 NEXT І 

220 DATA ENDEND 240 RETURN 
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PF キー に よる 割込み 操作 








* ネ 割込み と は 


**2 つ の 信 力 モー ド を 
設定 し て 使い わけ る 


割込み (interrupt: イ ンタ ラプ ブ ト ) (š, 特定 条件 を あら か じ め 設 定 
し て お き , その 条件 に を な っ た 時 , 通常 の 流れ か ら 外 れ て , 設定 され た 
ルー チン へ と 飛ぶ こと を いい ます . F-BASIC の 割込み に は 通信 回 線 
か ら の 情報 が あっ た 時 (ON COM 文 ), 設定 時 間 に な っ た 時 (ON TI 
ME 文 ), 設定 時 間 間 隔 に を っ た 時 (ON INTERVAL 文 ), 設定 し た 
PF キー が 押さ きれ た 時 (ON KEY 文 ) を ど が あり ます . 

PF キー (programmable function key) は , ワ ンタ ッ チ で 文字 列 を 
же АЕ ЙЕ, 命令 し た り で きる キー と いう こと で す が さ ら に 割込み 
操作 に も 使え を る, と いう わけ で す ・. 


PF キー に よる 割込み 操作 の 基本 は 
1 ON KEY 文 を 書き , どの サブ ルー チン を 呼ぶ か を あら か じ め 定 
義 し て お く 
2 割込み を 可能 に する (KEY ОМ), 禁止 する (KEY OFF), f 
止 す る (STOP) モー ド を 使っ て , さら に 条件 づけ を する 
も の で す . 流れ を 一 時 的 に 止め て , ある ルー チン を 呼び , その サブ プ ル 
ー チ ン が 終っ た ら ま た 元 に 戻る の が 割込み を な ので, ON KEY GOSUB 
と いう 書き 方 を し , ON KEY GOTO と は 書き ませ ん . 

た だ し , サン プル プロ グラ ム の よう に , GOSUB 文 で は あっ て も リ 
ター ン 文 を 書く 必要 の な い 場 合 も も あり ます . この プロ グラ ム で は , А 
カル ー チ ン を 2 つ に 設定 し 。 まず 行 番号 210 で ,。 ど ちら の 入力 ルー チン 
へ 飛ぶ か を 決め ます . も し , 入力 モー ド の 1 を 指定 し た ら 行 番号 1000 
に 行き ます . ここ で は ON KEY 文 で . も し PF キー の 7 番 が 押さ きれ た 
5, 入力 モー ド 2 の サブ ルー チン を 呼ぶ よう に し て お き , その の ち に 
PF キー の 6 (入力 モー ド 1 ) は OFF に し ます . こう する と 画面 の 下 の 
PF キー の 表示 部 の うち , 現在 の 入力 モー ド は 水色 に , KEY ON に な 
っ て いる も の は 紫色 に な り , 使い 手 が 識別 で きる よう に な り ま す . な 
Б, 行 番号 1010 一 1050 の 入力 処理 は 特別 を 書き か た で す ・ 

と いう の は , た と えば 入力 モー ド 1 が 定常 の 流れ で , その 流れ の 中 
で PF キー を 押し た 時 , 1 回 だ け 入 力 モー ド 2 を 実行 する の で は なく, 
っ ポト も に ド る も 対 箋 に 入力 で きる プロ ダグラム た だ なろ て ゆる か から 
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С, INKEY $ を 使い , キー 入力 の 待ち 受け 状態 を 作ら な いと PF キー 
に よる 割込み が 効か な い の で す . 

この プロ グラ ム で は , 行 番号 1020 で 入力 待ち 状態 を 作り , この ルー 
チン を 実行 中 に PF キー が 押さ れる と 割込み が 発生 する よう に な っ て 
いま す . また , 行 番号 1040 で INPUT $ を 使い , 1 文字 ずつ の 入力 を 受 
付け , リターン キー が 押さ れる (ASCII コ ー ド の &HO0D) まで これ を く 
りか え し て , 文字 列 を 受付 け で いる の で す . 





100 “жетк е キー/ リリ コミ リウ サー ヨ 6 ニコ ウリ ヨブ еккекккн Заа ка 


11@ ' 

120 ' 32 2° DB?" A РЕКЕҮ 6 y" ニュ ウリ ョ 71 。 PFKEY 7 77 2177872 / モー ト " 

130 ` PFKEY 10 77 49 リ ニナ リマ メ 

140 ' 

150 +++ е тек кек ек к ЕЕ # еке кенен тен екен еккен кекете енеке кек 
160 FOR I=1 ТО 10:КЕҮ I,"";NEXT ©....... ......-аа....а«РЕКЕҮ ライ チト Л4:ғза 

170 CLEAR 500: КЕҮФ, "КЕҮБ• • МОПЕІ ": КЕҮ7, "КЕҮ7· · МОрЕ2": КЕҮ1Ө, "КЕҮ10: ·ТНЕ END":MIDTH 
80,20: СОМЅОІЕ 0, 18,1,0:С15 '...,.,.,... s.s. ..........KEY) テイ キ " 


180 DIM J$(200),F$(200) .............................5199)а27Ж-І7: 977 04199394 
190 ONKEY(19@) GOSUB 5000: КЕҮ (10) ОМ ‘................„РЕКЕҮЗ 9 ON 

200 01%="7 ":02%="?? ":0=1:Р=1 0..»».................77-920 カウ フト ヨウ 

210 INFUT" 1・・・INPUT MODE1 2・・・INPUT МОрЕ2 トト "すう "jMENU:ON MENU 8070 1000,2000 
220 "ーー ニー ニニ ーー ニー ニー ニー ニー ニー ニニ ニニ ーーー ニニ ーー PFKEY 1 ------------------------------------- 
1000 CLS:UNKEY(7) GOSUB 2000:КЕҮ(7) 0М:КЕҮ(6) OFF 

1010 РКІМТ 01%; ененнен еее атта ааа ........7%ПУу7%) 

1020 4$=INKEY$:IF А%-"" THEN 1020 

1050 PRINT А%;:0%-А% "кетет вав в вв вак бакбак» вв» ..ІМКЕҮ%9 Ез?“ 

1040 Х%=1МРИТ%(1):1Е HEX$(ASC(X$) ) ="р" THEN 1050 ELSE PRINT X$;:J%=J$+X%:60TO 10 
ニュ ウリ ョ フ 

1050 PRINT:J$(J)=J$:J=J+1:IF J>200 THEN 3000 ....... 4/9: 954219 

ІО6ЙЕ-ЕПТП 010 еее ононе ае аео іе ое リョ の 

1070 '--------------------------- PFKEY 2 ------------------------------------- 
2000 С15:0МКЕҮ(&) GOSUB 1000:КЕҮ(6) 0М:КЕҮ(7) OFF 

2010 PRINT 02%; 

2020 АФ=ІМКЕҮФ:ІР А%-"" THEN 2020 

2050 РКІМТ А%;:Ғ%-А% 

2040 X$=INPUT$(1) :IF HEX$(ASC(X$))="D" THEN 2050 ELSE PRINT Х%;:Р%=Е%+Х%:650Т10 20 
40 

2050 PRINT:F$(F)=F$:F=F+1:IF F>299 THEN 3000 

2050 БОТО 2010 


2@7@ '--------------------------- РЕКЕҮ 3 ----------- -------------------------- 
3000 MIDTH 80,25:С0М801Е 9,25,9,9:CLS 

3010 FOR 1=1 TO JiPRINT USING"& &";J$ (I); :NEXT 

3020 PRINT:PRINT 

3030 FOR 1-1 TO F:PRINT USING"& &";F$(1);:NEXT 


3040 END 
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効果 倍増 ./ 文 字 列 の 操作 








* 左 右 中 央 に 文字 を 出力 


** PRINT USING 文 で 
は 不可 能 な 右 づめ 出力 


メニ ュー 画面 や , ゲー ム の 説明 を ど で 文 字数 に 関係 を な くそ の 文字 列 
を 左右 中 央 に 出力 する と , きれ いで 見 や すい も の に な り ま す . た と え 
ぼ あ る 文字 列 が 20 文 字 で , 1 行 が 40 桁 の 画面 な ら 空白 (10) 十 文字 列 (20) 
で 左右 中 心 に を なり , ある 文字 列 が 4 文字 を ら 空 白 (18) 十文字 列 (4) で 
左右 の 中 心 に 出力 され ます . これ を 実現 する た め に 「TAB」 を 使っ て 
も よい の で す が , いち いち 文字 数 を 計算 し な けれ ば いけ ませ ん . 

この よう な と き は サン プル プロ グラ ム の よう に する と , 自動 的 に モ 
ンタ ー 合 わせ の 文字 出力 に を り ま す . 1 行 の 文字 数 を 「LEN」 関数 を 使 
っ て か ぞ え , 空白 数 と し て SPACE$ を 使う も の で す . この よう な 書 
きか た 以外 に , た と えば АФ = “THE COMPUTER" と し て モンタ 
ー 合 わせ の サブ ルー チン を 呼ぶ . と いっ た 方 法 が あり Байа 

ここ で は DATA 文 を 使っ て X$ に 代入 きせ て いま す が , 1 行 を あけ 
る 手法 と し て カン マ を 使っ て いる (4145200, 230) 点 に も 注目 し て 
< くだ さい め 、 


文字 列 や 数 値 を 出力 する と き , 一 定 の フォ ー マ ッ ト が 確保 きれ る 点 
で は と て も 便利 を も の が PRINT USING 文 で す . と ころ が 数 値 変数 
は 右 づ め 出 力 (PRINT USING “###+#") され る の に 対し , 文字 
変数 は 左 づめ 出力 (PRINT USING “& &”) され て し まい ます . 
# k. Ë 


























A$="WHITE” 
PRINT USING '& ロ ロロ Hg ;А$ 
で は 





wHITE ロ ロロ ( 口 は 空白 分 ) 
に な る の で す . 数 値 変数 と 同じ よう に 

ГІСІСІМІНІТЕ 
に する に は どう し た ら よ い の で し ょ うか . これ も , 文字 数 を か ぞ え る 
LEN 関 数 と , 空白 の 文字 列 を 作る SPACE$ と 組合 わせ て 実現 で きま 
+. いま 指定 の 文字 幅 を TRIM と し まし ょ う . これ は PRINT USING 
о “а &” と お な じ 働 き を する も の で す . た と えば いま 出力 桁 数 を 
15 と し まし ょ う . ЭФОТБІМ-15<%. 

















100 
110 
120 
150 
140 
150 
100 
170 
100 
170 
700 
710 
720 
250 
240 
710 
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'===== モリ "ルリ ノ У9% *k や リー 77% ===== 
ІМРИТ "1+" а?л 72%97 (40,80) ";W 
MIDTH W,20:CLS 


READ 


IF LEN(X$) >M THEN179 
NULL$=SPACE$(INT(M-LEN(X$))/2Z7 = 
X$=NULL$+X$ 

PRINT X$ 


вото 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


X$:IF X$="ENDEND" THEN END 


130 


ЖЕЕ ЕЕЕ + к ка жена, 
THE COMPUTER БАМЕ5 

THAT 

DEVEL0PED BY МЕ.ҒМ, 

3 ススメ ミネ メメ ネネ ミネ ミネ メメ ミミ ミミ メス メメ えま ええ 3 ふえ 】 
ENDEND 








100 
110 
120 
150 
140 
150 
160 
170 
ШУ 
190 


'========== Фу” l" У9% ЖЕФ J ニニ ニニ ニ エ ニ ニモ エニ ニコ ニニ 
INPUT "ナッ キッ" 2 コミ スカ "3 ТКІМ 

INPUT "9 の リラ КӨР "X$ 

IF LEN(X$) >TRIM THEN Х%-1ЕҒТ9(Х%,ТКІМ):60Т0 170 


NULL$=SPACE$(TRIM-LEN(X$) ) 

X$=NULL$+X$ 

PRINT"1234567899123456789912345" "カリ コミ チェ ョ 7 ヨウ 
PRINT X$:PRINT 
GOTO 110 


* ! 平 列 を 指定 幅 の 中 央 に 出力 する 人 実行 例 











СУТО ерл] 人 実行 例 


入力 し た 文字 変数 か ら LEN (文字 変数 ) を も と め る …… Ze 2 251 2, 
X$ー“ コ ン ニ チ ナハ” な らち 文字 数 は 5 に な り ま す . 

空白 文字 列 =SPACE$ (TRIM 一 5) ニー10 に な り ま す . そし て 

文字 変数 SPACE$ (10) 十 ( も と の 文字 変数 ) 
に すれ ば 「 空 白 10 個 キオ コン ニチ ハ 」 が 新しい 文字 列 に な り 

ロロ HP コンニチハ 
と いう 形 で 出力 され る わけ で す . 

サン プル プロ グラ ム は 出力 桁 数 を 越え る 長 さ の 文字 列 に つい て は 空 
自 を 作る 必要 が な を い 代 り に , LEFT$ を 使っ て 指定 桁 数 に 切り 捨て て 
いま す ( 行 番号 130). を お 行 番号 170 は 実行 結果 を 確認 する た め の も の 
で 本 質 的 に は 不要 な 文 で す . 
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文字 列 の 中 か ら 目 的 の も の を 探す 


*※ 送 の つづ り を 作る ここ で ひと つ , 文字 の 遊び を . 入力 文字 列 を 逆 の つづ り に し て み ま 
し ょ う . 使う 関数 は MID$ で す . MID$ は 指定 の 位置 か ら 指 定 の 文字 
数 を 取出 す 働き を し ます . 入力 し た 文字 列 の 文字 数 を か ぞ え た ら 右 は 
し か ら ひ と つ ず つ 文 字 を 取り 出し ( 行 番号 140), 新しい 文字 列 に それ 
を 加え て ゆく こと で , 逆 の つづ り が 完成 し ます . 
FOR 一 NEXT で ,「L TO 1」 と し て , 逆 の 操作 に し て いる こと , 
また GOTO110 と , 入 力 ル ー チ ン へ 戻し て いま す ( 行 番号 170) が , < 
の 前 に いま 作っ た つづ り を 一 度 空白 の 文字 列 (ヌル スト リン グ ) に し 
а отыр аса «Маан 








жж 文字 列 の 検索 つぎ は 有用 な 「INSTR」…… イン スト リン グ で す .。 これ は 文字 列 を 
指定 し , 探し た い 文 字 列 を 指定 する と , その 結果 を 数 値 で 返し て くる 
も の で す . いく つか の 例 を 見 まし ょ う . 

A$ー" ト ウキ ョ ウ ": PRINT INSTR (A$, *+”) 

で は , 結果 は 「3」 に な り ま す . つま り AS$ の 中 の , 左 か ら 数 えて 3 
番目 に キ が ある と いう こと を 知ら せ て くれ まし た . 

A$ー バ トウ キョ ウ ": PRINT INSTR (А$, `”) 

は , 結果 は 「0」 に な り ま す . つま り A$ に 指定 の 文字 は 含ま れ て い 
な いこ と を 知ら せ て くれ ます . 

А$= ‘Кожа 9” : PRINT INSTR (А$, 74-7”) 

も 結果 は 0 に な り ま す .「 キ ウ 」 と いう 文字 列 は 含ま れ て いな いと コン 


も モミ ドル リノ У9% キャ ブリ リリ ニニ ニコ ニニ ニニ ニモ ニニ 
110 INPUT"9 り 9 リト ウリ" ";NODRMAL$ 


120 L=LEN(NORMAL$):PRINT"length=";L 

130 FOR I=L TO 1 STEP -1 

140 X%=MID$(NORMAL$,I,1):REVERSE$=REVERSE$+X$ 
150 PRINT X$,REVERSE$ 

160 NEXT I 

170 REVERDE$="":GOTO 110 
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100 “жен モッ "ルリ リノ 7297 くく INSTR>> ++ +++ + +++ ++ 
110 DIM X$(10) 
120 FOR Ізі TO 19:READ Х9(1):МЕХТ 


150 

140 INPUT "59794 7715; КУ% '..++,,+#-0-Һ°/ 219747 

150 РОК I=1 ТО 19 

15@ М=1М5ТВ(Х%(1),КҮ%) ) 

170 PRINT"I=";I,"N=";N 04... “ІМӨТЕ カフ 297 772 

180 IF N THEN PRINT Х%(1) 「・・・・ リ リョ ウリ リー 70#// Ез?” 
190 NEXT 


200 GOTO 140 

20И モリ ルリ ТОТ 

220 DATA 1779: キョ 9 コ 。29 カ モト уу4%,377%һ 9Л9,47739 キョ 9 イチ 
230 DATA 54 カ モト 391,04777 уу97,797%% 979,87797 394% 
240 DATA 9 エモ ト уз74%,104477 542 








ふ イ ンス トリ ング を 使っ て , 目的 の 文字 列 を 探す 人 実行 例 
ピュ ー タ は 知ら せ て くれ ます .「 キ 」 も 「 ウ 」 も, 1 文字 を な ら A$S に は 
あり ます が , 「 キ ウ 」 は あり ませ ん , と いう わけ で す . 

イン スト リン グ は この よう に 非常 に すぐ れ た 関数 で す . た と えば 住 
所 録 や 電話 帳 か ら 目 的 の も の を 探し 出す と き に , 名 前 の 中 に 「 ア 」 が 
含ま れ て いる 人 (結果 が 0 で な けれ ば , 名 前 に ア が 含ま れ て いる , と 
いう 判断 文 を 書け ば よい ) , 「 ア 」 か ら 始 まる 人 (結果 が 1 な ら , ア か 
ら 始 まる ), 「 ア 」 で 終る 人 (文字 列 の 長 さ ( 文 字数 ) を 求め , 結果 が そ 
の 数 値 と お な じ な ら ア で 終っ て いる ) な ど を 見 つけ る こと が で きま す . 

また 同姓 同名 な を ら , さら に 住所 か ら 目 的 の 人 を 探す (た と えば 東京 
の 〇 〇 さき さん) と いっ た よう に , 判断 条件 を 複合 化す れ ば 数 多く の デー 
タ を ふる い に か ける こと が で きる の で す . 

上 の サン プル で は 10 人 分 の 姓名 を 配列 に 読み こみ , 見 つけ た い 名 前 
を KY$ と いう キー ワー ド に し て , それ が 10 人 の 姓名 の 中 に ある の か ど 
うか を 検索 させ て いま す . INSTR が どう いう 数 値 を 返し て くる か を 知 
る た め に 行 番号 170 で 姓名 の 番号 と , INSTR の 結果 を 出力 させ て か ら , 
目的 の も の を 出力 させ て いま す ( 行 番号 180) . 

IF Ñ と いう 判断 文 は 「N が 0 テ 偽 で を いと き 」, つま り キ ー ワ ー 
多く の 文字 列 の 中 か ら ド が 含ま れ て いれ ば 真 に を る の で , その 時 は 姓名 を プリ ント する こと 
目的 の も の を 探す 

に な り ま す . INSTR は 検索 だ け で な く , た と えば 「 し り と り 」 な どの 
言葉 遊び その 他 に も 活用 で きる で し ょ う . 








46 





解け な い ? 暗号 文 を 作る 


暗号 文 の 簡単 な 例 他人 に は 読ま れ た く な い 文章 は 暗号 化 さ きれ ま す . スパ イ 活 動 や 戦争 
な ど で は 欠か せな い 情 報 伝達 で すし , ポー の 小説 な ど に も 暗号 を 扱っ 
た も の が あり ます . 暗号 は 一 - 般 に 「 あ る 法則 」 を も と に し て 元 の 文 を 
жа, 解読 は その 逆 の 操作 を する こ Сос 
を 使っ た も っ と も や さき хр Ек, 英文 を カタ カナ に 変え て し まう 
РГ есе, “ЧА санадан Ta 
177 で す . ССА” が 入力 され た ら 十 112 の コー ド に すれ ば Aー ア , 
алы ыы лыуы - 変 換 さ きれ ま す . アル ファ ベッ ト の ほう が 文 
放 数 が 少な を い の で すべ て カタ カナ に 変り ます . つま うり 
APPLE…… アタ タ シ オ 














と ゅ ゆう БТУ. 
* ネ キー を ファ イル に し き て 正規 の 暗号 文 作り , と いう ルー ル か ら は 外れ る る か も し れ ま せん 
まう 方 法 が , 文字 列 操作 の 練習 と いう こと で , 暗号 文 を 見 た だ け で ! は 絶対 に 解 


説 で き な い ? と いう も の を 作っ て み ま し ょ う ・ 元 の 文 の 1 文字 ご と に 
乱数 を あて は め て 暗号 化し ます ・ た と えば 元 の 文章 が “ヤマ” と し た 
ら 乱 数 を 2 個 使っ て み ま す . 最初 の 乱数 が 十 3. つぎ が 十 5 だ と し た 
ら , ASCII コ ー ド に し た が っ て ヤー ラ , マー ヤ と いう よう に 変換 し ま 
527; この 乱数 は 配列 に し まっ て お き , ファ イル に 書き こん で お きま す - 
暗号 化し た 文章 は “>+” に な り ま す が , も と も と 法則 性 が な い の で 
暗号 文 を 見 た 人 は まず 解読 で きま せん . 解読 を する に は , まず フロ ッ 
ピー ディ スケ ッ ト を 入手 し , その 中 の デー タ の ファ イル 名 を 見 つけ 出 
す と 共に プロ グラ ム を 書か な な けれ ば いけ な い , ЖААР ЮН сею 
り デー タフ ァイル に ある 「3。 5」 と いう 数 値 を キー に し て , 暗号 化 
され た 文章 を 入力 し , ファ イル の デー タ と 組合 せる こと で 元 の 文 に を 
る , と いう わけ で す . 

サン プル で は 0 か ら 29 ま で の 乱数 を 文字 数 だ け 発 生き せ ( 行 番号 260), 
元 の 文字 に 乱数 を 加え た ASCII コ ー ド に 変換 し て いま す ・ 解読 を する 
と き は 逆 の 操作 で , デー タ に 収め られ た 乱数 を キー に し て , 乱数 分 だ 
け を 引い て 戻す こと に な り ま す . 通信 の 暗号 文 と , ディ スケ ッ ト の プ 
ログ ラム と デー タ を 使っ て , 初め て 解読 で きま す - 
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PRINTER 3 1・・・・・・979 2.2... 592974 

ト * チ う テ "スカ 7 1 

7 フウ コ " 9 カ ・・・・・1 カト "9・・・・・2 

кэ ジス 9 1 

モル 9 ヲ ト *9 リ "2 THE ENEMY MENT SOUTHERN ISLAND 


p 暗号 化 の 例 TU/Ldgat ("Mk_9pcZe'bb19RgPYaQ 





4” 


120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
248 
250 
260 
270 
280 
290 
500 
310 
320 
330 
340 
550 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


'==========2==== キッ "ルリ / У9% ## ア リコ 9 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
キー ニナ 上 79979 27482 4924 %9%9 Э リカ ウ 
7 二 こ ご ニニ ニニ ニニ エニ ニニ ニニ ニニ と ニニ ニコニ ニ ミニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ エニ ニモ ニニ ニュ ニニ エニ ニコ ニニ 
F=@:WIDTH 80,20:С15 
INPUT "722° 54": АКҮФ 
РЕІМТ"РЕІМТЕК Э 1...9 2...0... 9774" 
ІМРОТ" К" ЭЛ" {Р 
IF P=1 THEN F=1 
PRINT "723° 3...1 ЛАК ТЕ ад» 
INPUT "リト "チラ y'Zh";M 
IF М-і THEN 220 ELSE IF M=2 THEN 400 ELSE 190 
Eo ニニ ピコ ー レ ンー ニニ ニー マウ エニ の の カセ ニッ ニュ ラニ エン ご ニー ニス ニニ ここ Oo 
LINE INPUT" モ デル 9 ラ 9 599"? "у 
N=LEN(X$):DIM КҮМ) 「・・・・・ ッ ッッ ッッ ーッ ラフ スウ 3 モッ "ノコ スウ の" カリ 3924 
IF ТІМЕ>3000й0 THEN ТІМЕ%-"00:00:00" 
RANDOMIZE TIME 
FOR I=1 ТО Nz:KY(I)=INT(RND*39):NEXT 
FOR I=1 TD N 
HENKAN$=MID$(X$,1,1) оен スリ トリ テス 
HENKAN$=CHR$(ASC(HENKAN$)+KY(I)) ы. e p23" 9) 
АМ60%-АМ60%%НЕМКАМ% ‘еее モル リ ニ ス ル 
NEXT I 
PRINT ANGO$:IF F=1 ТНЕМ LPRINT ANGO$ 
"キー ニナ ルリ イ ルリ 274%: 473 
ПОРЕМ"0",#1,"@:"+АКҮФ 
PRINT #1,N 
FOR 1=1 TO N:PRINT #1,KY(I):NEXT 
CLOSE:END 
2 ュー ニー ニー ニニ ニー ニニ ニニ デニ ニニ ニー 有 有 4 か の テ ニ ニニ ニニ ニニ ニニ ニニ ニー ニー ニニ ニー ニコ 
"キー ニナ ルリ イル 9 ファ イル カラ トリ テス 
ОРЕМ"1",#1, "0: "+АКҮФ 
INPUT#1,N +... "лев аваа вав ав в вв зв Ту 7937 727% トリ ダス 
DIM KY(N) 
FOR 1=1 ТО N:INPUT#1,KY(I):NEXT 「・・・・ キ ー ニ ナル 2999 hU9"2 
CLOSE 
LINE INPUT "アフ コウ 9 ウサ "99"? "; АМ60% 
FOR 1=1 TO N 
KAI$=MID$(ANGO$,I,1) 
KAI$=CHR$(ASC(KAI$%$)-KY(I)) “asses esfik"? 
KOTAE$=KOTAE$+KAI$' +... o. sasana С スル 
NEXT I 
PRINT KOTAE$:IF F=1 THEN LPRINT KOTAE$ 
END 
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配列 を トラ ンプ で 考え て みる 一 1 











* ふ つう の 変数 , 配 列 変数 


ネネ トラ ンプ を 例 に 考え る 


私 た ち が 使 う 変 数 の ひと つ に 配列 変数 が あり ます . 配列 変数 も アル 
ファ ベッ ト で 始ま каеныт нн な い の で す が , 普通 の 
変数 と 決定 的 に 違う の は 湊 % (サブ スクリプト :subscript) を 使う こ 
と と , コン ピュ ー タ に , あら か じ め こ の 配列 変数 を 使う こと を 伝え る 
яб 必要 が ある こと で す . 

通 の 変数 と 配列 変数 は 本 質 的 に 異な る も の で し ょ うか ? 

жн NO で す . 本 質 的 に 異な る 点 は ひと つも あり ませ ん . し か し 場 
合 に よっ て は 便利 に 使え を る も の で す . 一 般 に , 配列 変数 は 同じ 性 質 あ 
る い は 同じ 項目 で まとめ る こと が で きる も の を 対象 と し て 使い ます . 
きら に いえ ば 同じ 性 質 を な の に , た と えば 順番 だ けが 違っ た り , 部 分 的 
に 人 違っ て いる る も の を まとめ て 扱う と き に 使い ます . 


話 を 具体 的 に 進め て み ま し ょ う . トラ ンプ を 例 に し ます . カー ド は 
(ジョ ー カ ー を 除い て ) 52 枚 あり ます . 52 枚 の カー ド は 4 種類 に 分 か れ 
それ ぞ れ 1 か ら 13 ま で の 数 に を な っ て いま す . この 52 枚 の カー ド を 切り , 
伏せ て 山 に し た も の か ら 1 枚 だ け を 取る と き , それ が 何で ある の か を 
画面 に 出す こと を 考え ます . カー ド を “トラ ンプ ”" と いう も の と 考え 
с “Б” ある と 考え れ ば , た と えば 変数 は 

CARD (1, 2, 3,… 52) 
< な り ま す . BASIC で は この 変数 を プロ グラ ム 中 で 使う 前 に 

DIM CARD (52) 

と いう 文 … 配 列 宣言 文 を 書き ます . こう する と , コン ピュ ー タ 内 部 で 
CARD と いう 名 前 が つけ られ た メモ リ を 52 個 分 (正しく は 53 個 分 で す ・ 
この こと は 後述 し ます ) 用 意 し て し まい ます ・. この 変数 は 数 値 変 数 で 
すか ら , メモ リ に 代入 で きる の は 数 値 に を な り ま す ・ 

た と えば カー ド の 1 番 CARD(1) に 1 を 代入 する と いう よう に で ます . 
これ で と に か く カ ー ド の 1 枚 目 か ら 52 枚 目 ま で が CARD と いう 配列 変 
数 と し て 使え る こと に な り ま す . な お , CARD (1) と CARD1 と は ま 
っ た く 別 の 変数 に を な る こと を 理解 し て くだ さい . CARD (1) は カー ド 
の 中 の 1 番目 , と いう こと で , CARD1 は CARD1 と いう 独立 し た 変数 
сз. 添字 は 1 組 , 1 一 52 で すか ら 1 次 元 の 配列 と いい ます -. 
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52 枚 の カー ド は それ ぞ れ 13 枚 が 1 組 で 4 種類 に 分 れ て いま すか ら た 
54102395 У М5», 
ее АО ECAR EME 


1426214 —CARD (14) —CARD (26) は 1 —13 
27 99 r Ааа БЫ „ы —CARD (27) —CARD (39) は 1 —13 
ЛОБАЧ ーCARD (40) ~ САКР” (52) は 1 一 13 


それ ぞ れ の カー ド に は 1 か ら 13 ま で の 数 値 が 代入 され ます . も し 乱 
数 で 18 が 出 た ら , それ は CARD (18) を 引い た こと と し て , その 変数 に 
代入 され て いる 数 は 「6」 で すか ら 「 ダ イア の 6」 と いう よう に 対応 づ 
ける こと が で きま す . CARD と いう 配列 変数 と , 実際 の トラ ンプ の 種 
類 と の 対応 づけ は いろ いろ な 方 法 が 考え られ ます が , ここ で は 原始 的 
で や も うう で も 分 りや ずい も の し じ で お きま ES2 











ネネ ポカ ー ド を 引く 下 の プ ログ ラム は 52 枚 の カー ド に 1 か ら 13 の 数 値 を 代入 し て , その 
カー ド の 中 か ら 1 枚 を 引く も の で す . 行 番号 150 で N は 1 か ら 52 ま で に 
な り ま す ( 例 :I1 が 2 に な うた と き 。 N=13x23-Jti2 5. J が 13 な ら 
М=26+13=39). カー ド を 引く た め の 乱 数 は 1 一 52 の 聞 と し て , 乱数 
に よっ て スペ ー ド か ら ハ ー ト まで の 分 類 を し て いま す . 参考 の た め に 
行 番号 300. 310 で 乱数 の 値 と CARD (N) を 画面 に 出力 し て いま す . な 
お , この プロ グラ ム は カー ド を 1 枚 引 き , それ を 見 た ら そ の カー ド を 
また 山 に 戻し て か きま ぜ , また 1 枚 を 引く の に 似 て いま す . 
200 カー ト " う 3 Е7 
210 РКІМТ"1749 上 キマ スリ 
229 PRINT"PUSH ANY KEY" 
230 IF INKEY$="" THEN 230 
100 “жж CARD жоғ 240 N=INT (1+RND#52) 
110 カート" - 2999 イル レル 250 MARK$="#" 
120 DIM САВр (52) 260 IF М>-14 AND М<-26 THEN MARK$="*" 
130 FOR I=0 TO š 270 IF М>-27 AND N<=39 THEN MARK$="&" 
140 FOR J=1 TO 13 280 IF М>-40 THEN MARK$="@" 
150 N=13*#I+J 290 PRINT MARK$;CARD(N);"3 t+#*?59" 
160 САКО (М) =J 300 РКІМТ USING"(332292=##8 ң"; М; 
1708 МЕХТ 1 310 РКІМТ USING"CARD(N)=##)";CARD(N) 
180 NEXT I 320 PRINT 
198 ” 330 БОТО 210 

















配列 を トラ ンプ で 考え て みる 2 








ネ カ ー ド を まぜ て , 配る 
こと を 考え る 


4 枚 ず つ カ ー ド を 配る トレ 


は じ め の 例 で は , 52 枚 の カー ド に 1 一 13 ま で の 数 値 を 4 組 つ け ま し 
た .。 この よう に 配列 の 添字 が 1 組 だ な け の も の を 1 次 元 の 配列 と いい ま 
+. 添字 は 0 か ら 使 えま すか ら , DIM CARD (52) で は , 53 個 の 変数 
が 用 意 き れ ま す . し か し CARD (0) と いう の は ふつ う は 使い に くい 
ос, ムダ で す が こ れ は 使わ ず に CARD (1) か ら 使っ た ほう が 整理 
し や すい も の で す . 

хс, カード を 何 枚 か , 相手 に 配る こと を 考え まし ょ う . この 場合 
配っ た カー ド は 山 に は 残っ て いま せん か ら , プロ グラ ミン グ の 上 で は 
《 山 に 残っ て いる か 》, 《 配 っ て し まっ た か 》 を 判定 さき せな けれ ば いけ ま 
せん . つま り 同 じ カ ー ド を 配っ て は いけ な いわ け で す . と りあ え ず 4 
枚 を 配る こと に し まし ょ うか . カー ド 配 り の アル ゴリ ズム (考え か た ・ 
プロ グラ ム の 書き か た や テー マ 実 現 の 手法 ) も , いろ いろ な も の が 考 
えら れ て いま す . 

ここ で は CARD(1) ~ CARD(52) に , まず 1 一 52 の 数 値 を 入れ ま 
+. その あと に , 2 つの 乱数 を 発生 きせ て , 配列 に し まわ れ た 数 値 を 





130 ' 

140 DEFINT А-1:В1М CARD(52):WIDTH 40,25:CLS 

150 FOR I=1 TO 52:CARD(I)=I:NEXT 「・・・・・ ス 9 チ / 77077 

ПА ニコ ニニ ニニ ニニ ニニ ニニ ジー ニュ ニコニ ポー ニー ニー ニュ ニー デー ニニ ニー テニ ーッ 
179 IF TIME>29999 THEN TIME$="Q0:00:00" 

180 RANDOMIZE TIME 

19@ FOR KAI=1 TO 300 '.-....+.,,..++,,.3007Л04 ЛТ 
200 RI=INT(1+RND*52):R2=INT(1+RND*52) 

210 SWAP CARD(R1),CARD(R2) '.....,,+++Д0%/ コウ カフ 

220 NEXT KAI 

238 к==р トラ リプ 42 スエ リョ байт АҚ ニニ ニュ ラモー ニー に ニュ ニニ ェ 
240 І=1:К=1 ненен еен ッッ ジョ キネ や セリ テイ 

250 IF I>52 THEN END 「・・・・・・・ カ ー ト "フス スト テ チ ヒョウ ッッ タラ 177 
269 IF K>4 THEN GOSUB 699 「・・・4? イ 上 ト 7 ミ 9 ヒョウ ラッ "リテラ リキ "へ 
278 GOSUB 350 '...........е.0\{0%/ 19%7 27° 7 297%22% 
280 GOSUB 490 '.............7°4Д7*14 

290 К=К+1 %--!%!54! дс е 14429 у7іуЙ7у2 Ез?У” 
380 1=1+1:60Т0 250 
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※ ト ラン プ は 1 ご A, 12~Q な どの よ 
うに な る た め , この プロ グラ ム で も 数 
値 を 文字 列 に 変換 し て いる . 

+ 
Б зз GUBRUUTINEG ЕЕЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЕ ЕЕЕ な お , 数 値 は 左 に 1 文字 分 の 空白 が 
'------ 1+++52/ 92799 №907%/ 9-7 7997 7%----- КЕ Азы. И 


M=INT((CARD(I)-1)/13) б©в...3 / p2`3 599 р На 
MARK$=CHR$ (М+232) т 

PHR$ (232=0:233=9:234=9:235=%) 
Re 14542127 777 799 ------- ЕЕ С 
NUM= (САКО (1) -1) М0013+1 '1---12 / 71779778 
NUM*=STR$(NUM) に < ババ ーー スウ" カラ う tu`A/ パフ カウ 
IF NUM=1 THEN NUM$=" A" 
IF NUM=10 THEN NUM$="10" 
IF NUM=11 THEN NUM$=" J" 
IF NUM=12 THEN NUM$=" 0" 
IF NUM=13 THEN NUM$=" K" 


RETURN 

татна アド スソ ルル オピニ コー ピー ニニ ニー コマ シア ニラ コラ 
LOCATE K*8,7 :РКІМТ MT コテ ネ ニー 1" 

LOCATE Кж8,8 :PRINT USING" 15% I"; NUM$ 

LOCATE Кж8,9 :PRINT USING" І && I";MARK$ 
LOCATE K*8,10@:PRINT "| 1" 

LOCATE К#8,11:РКІМТ | 5 

LOCATE Кж8,12:РКІМТ 4; ре 


LOCATE Кж8,13:РКІМТ USING"I &k "iMARK$ 
LOCATE Кж8,14:РКІМТ USING" І ка I";NUM$ 
LOCATE K*8,15:PRINT 0 ラーン ピー айы 


ニニ せ ざ で ニー ニニ こそ РЬ ДЫЛ ОЛ? Жу ニニ ニニ ニー ニニ ニー ニニ ニニ ニー 
LOCATE 9,20: РКІМТ"У+° / 4 722 5%72 ANY KEY PUSH" 
MHILE ІМКЕҮФ="": МЕМО  「・・・・・KEY ニ ュ ウ リョ フ マ チ 

LOCATE 9,20:РБІМТ SPACE$(30); '· 90-7" 3 ケス 
リト 1 ニモ ト " ス 
RETURN 





4 プロ グラ ム の つづ き 
交換 し ます (プロ グラ ム の 行 番号 190 一 220). た と えば R1 が 5, К2 
が 12 と いう 乱数 を 発生 きせ た と し まし ょ う . さい し ょ の 

САВР (5) = 5 CARD (12) =12 は 交換 され て 

CARD (5) =12 CARD (12) = 5 
に な る わけ で す . ここ で は 300 回 の か きま ぜ (シャ ッ フ ル : カー ド 切 り ) 
を じ で いま ず 。 

こう する こと に より , カー ド を 順番 に 取出 す と , 中 味 は バラ バラ に 
な っ て いま すか ら , ちょ うど 本 当 の トラ ンプ の カー ド 切 り と 同じ に な 
る わけ で す . 
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52 の 数 を トラ ン 
プ の 内 容 に 


合わ せる 


4 カー ド を 4 枚 取 出し た と ころ 


この プロ グラ ム で は 配列 変数 の 中 味 は 1 一 52 で すか ら , や は り マ ー 
ク を どれ に する か , 1 一 12 ま で の 数 に どう 変換 する か を 考え な けれ ば 
いけ ませ ん . ここ で は マー ク を 4 種類 作る た め に 

1 一 13 ま で の 数 値 を すべ て 0 に する , 14 一 26 は 1 に する ……… と いう 
1 asw МРТ ухе К TMT зв 
た と えば 「27」 は INT [(27—1)-13)] =INT (26—13) =2 で すし , 
「39」 も 2 に な る わけ で す ( 行 番号 350) . 

また 1 か ら 12 ま で の 数 値 に する た め に 行 番号 390 で (数 値 一 1) 13 

の 余り 十 1 と いう 計算 を させ て いま す . た と えば 「27」 は (27- 1)7®13 

の 余り =0 で , それ に 1 を 加え る の で 1 に な り ま すし ,「40」 も お な じ 
よう に (40-1)-:13- (39--13) で 余り が 0 に な る わけ で す . 

こう し て 1 一 52 の 数 値 が それ ぞ れ の マー ク と それ ぞ れ 1 一 13 に な っ 
た ら 画 面 に 出力 し ます . この プロ グラ ム で は , グラ フィ ッ ク 画 面 は 使 
っ て いま せん .。 し た が っ て キャ ラク タ を 出力 する 位置 は すべ て ロケ ー 
ト 文 を 使っ て いま す . この ルー チン で は 変数 は 2 つ , I と K を 使っ て 

ます . 1 は 配列 の 添字 を コン トロ ー ル する る た め に 使い ます か ら , 1 
=E: 152 “y 1 枚 の トラ シン プ を 出す る る た びに 1 ずつ 増え ます . 

KK は K 二 1 と , や は り 1 ずつ 増え ます が , 1 回 に 4 枚 の トラ ンプ を 
画面 に 出し た ら , また 1 に 戻し て や り ま す . 同時 に K>4 に な っ た ら 
(実際 に は Kー5 に な っ た ら ), 次 の 4 枚 の カー ド を 見 る か どう か を 聞 
く サ ブル ー チ ン を 呼び ます . こと の プロ グラ ム は サブ ルー チン 化 の 必然 


性 は を い の で す が , リス ト を 見 や すく する た め に 使い まし た . 
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配列 の 宣言 と ERASE 文 








*10 以 下 の 漆 字 な ら 


な し で 使え る 


на 配列 を 使う と き に 注意 する こと の ひと つ に , 配列 変数 の 宣言 が あり 
ます . DIM 文 で 宣言 を する の で す が , 宣言 な し の 配列 変数 は その 添字 
が 10 と 見 を され ます . も う ひ と つ , この 添字 は 次 元 数 と は 関係 し を ない 
こと も 知っ て お きま し ょ う . 宣言 を し な い 状 態 で は 
X (10) 一 1 一 許さ れる X(11) =1 エラ ー 
Х (10, 10, 10) =1 一 許さ れる Х (10, 10, 11) =1 ーー エラー 
Х (10, 10, 10, 10) =1 一 許さ れる Х (9, 9, 9, 12) =1 +25 — 
な ど に な り ま す . 今 の 例 は それ ぞ れ 1 次 元 , 3 次元 , 4 次元 の 配列 に 
な っ て いま す が , 次 元 に 関係 を く , 添字 が 10 以 下 を な ら よ い の で す . な 
Б, 今 の 4 次 元 の 配列 を ど は 用 意 す ベ き メモ リ が 多 す ぎ て , 実際 に は 
使え を ませ ん (Out Of Memory エラ ー に な る ). 





ネネ ERASE 文 を じょう ず 55, この ERASE 文 を じょう ず に 使う と メモ リ が 有効 に 使え ます . 


に 使い こ 


な す 


た と えば , ある プロ グラ ム が つぎ の よう な 内 容 を も っ て いる と し まし 
E Əla 

行 番号 が 1000 ま で に 使う 配列 X (5000) (それ 以降 は 不要 ) 

行 番号 が 1010 か ら 使う 配列 Ү (5000) 
сор х, 事前 に まとめ て DIM Х (5000), Y(5000) と 書か ず に , た 
と えば 1 рм Х(5000) 1001 ERASE X 1002 DIM Y 
(5000) と いっ た よう に 書く と , 限ら れ た メモ リ が 活か され る こと に を な 
ү), 35752. 

配列 変数 は DIM 文 に よっ て 必要 な 個数 分 の メモ リ が 確保 され る の で , 
添字 が 10 以 下 で あっ て も 必 ら ず 宣 言 を する 習慣 を つけ て お きた いも の 
сз. な お , 同一 の 変数 名 に よる DIM 文 は 1 回 し か 書け ませ ん . た と 
ぇ えば ある 行 で DIM X(10) と 書き , 別 の 行 で も DIM X(18) と いっ た 
書き か た を する と 。。2. 重 宣言 を し た こと に な り , エラ ー ズ у= 201 
出 ま す . 

この よう な と き は , ERASE 文 に よっ て あら か じ め 配 列 変数 を 消 末 
し て お き , その 後に DIM 文 を 書き ます . 今 の 例 な ら , ERASE Хо 
し て か ら DIM Х (18) と 書く わけ で す . な お ERAS セ 文 は 配列 変数 に 
つい て だ け 適 用 され ます . 
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多 次 元 の 配列 も こわ く な い 





ж 多 次 元 配列 と 誤解 し や 
すい 部 分 に つい て 


ネネ 次 元 が 増え れ ば 変数 
の 種類 が 減っ て くる 


配列 は , メモ リ が 許す か ぎり 何 組 も の 添字 が 使え を ます . これ ら を 多 
次 元 の 配列 と いい , 添字 が 2 個 あ ちる も の は 2 次元 の , 4 個 あ れ ば 4 次 
元 の 配列 に な り ま す . た と えば Х (А, В) は 2 次 元 , X (А, В, C, D) 
は 4 次元 の 配列 と いう わけ で す . 

と ころ が 私 た ち が 普 通 に 使う “次元” と いう 言葉 は , た と えば 2 
次 元 が 平面 で , 3 次 元 は 立体 , 4 次元 は さら に 時 間 の 要素 が 加わ っ た 
О と いう 概念 が ある た めか , 同じ よう な 目 で 配列 を 見 が ち で す . 
配列 は それ と は まっ た く 違 う も の で ある こと を まず 理解 し て くだ さい . 
ある 変数 を 扱う と き に , その 要素 が いく つ あ る の か , ある い は いく つ 
の 要素 で 扱い た いか に よっ て , 多 次 元 化 を すれ ば よい の で す . 


配列 と 次 元 の 話 を 具体 的 を な 例 で 考え て み ま し ょ う . テス ト の 成績 と 
\ み きど 氏 も まず "いま 、。 さと に その 個人 デー タ が の サモ す ・ 


1 学期 国語 805 数 学 65 点 英語 70 点 社会 95 点 

2 学期 国語 85 点 数 学 70 点 英語 73 点 社会 86 点 

3 学期 語 93 点 数 学 76 点 英語 96 点 社会 78 点 
配列 を 使わ な いと き は , すべ て の 変数 を 異な る も の に し な いと いけ ま 


ОЬ Уо LE 
К1-80:М1-65:Е1-70:51--95:К2--85:М2-470--- 
以下 , 同じ よう に し て 合計 で 12 個 の 変数 を 用 意 す る わけ で す . も し , 
3 学期 分 の 国語 の 総 得点 を 求め た か っ た ら そ の 変数 を KSUM と し て , 
KSUM=K1 十 K2 十 K3 と いう 式 で 与え ます . 
つぎ に 1 次 元 の 配列 で 処理 し まし ょ う . 国語 の 成績 は K (П, 算数 の 
成績 は M(I) と いう 形 に すれ ば 
К (1) =80: M(1) =65 : E (1) =70: S (1) -95--- 
と いう よう に な り ま す . も し 国語 の 3 学期 分 の 総 得点 を 見 た か っ た ら 
FOR I=1 TO 3: KSUM 一 KSUM 十 K (1) : NEXT 
と いう 文 を 書け ば よい こと に な り ま す . も し , すべ て の 成績 の 総 得点 
を 求め る の な ら 
SUM-KSUM 十 MSUM 上 ESUM 十 SSUM 
に な り ま す . 
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11@ 
120 
130 
140 
150 
160 
170 


180 ' 


190 
200 
210 
220 





'===== 205° у ボイル 9 1 


DIM 54,3) 
FOR KAMOKU=1 ТО 4 
FOR BAKKI=1 TO 3 


READ S(KAMOKU,BAKK1I ) 148 READ S(KAMOKU,GAKKI) 

NEXT BAKKI 150 МЕХТ KAMOKU 
NEXT KAMOKU 169 NEXT BAKKI 
179 ・ 

іг 24% 509% 189 ・ 175 299"2 エイ コ " ジャ カイ 

DATA 88, 85, 93 :'272" 190 DATA 80, 65, 70, 95: ітзж 
DATA 65, 70, 76 :'29h"2 208 DATA 85, 720, 73, 86:'2 カ 5+ 
DATA 70, 73, оа тті 210 DATA 93, 76, 96, 7B:' 34% 


DATA 95, 86, 78 


===== 100 ‘======= 2у%)%; М4/9 2 = ニニ ニニ = ニニ ニテ 
110 DIM 5(4,3) 
120 FOR GAKKI=1 TO 3 
138 FOR KAMOKU=1 TO 4 


ョ リャ カイ 








全 配 列 く の デー タ の 読み こみ . どちら も 結果 は 同じ こと に な る . 


жжж 2 次 元 配列 で 処理 
を し て みる 





で は , も う 一 歩 進め て 2 次 元 の 配列 を 使っ て すべ て を S と いう 変数 
で 扱う こと を 考え まし ょ う . この と き の 要 素 は 何 に な り ま すか ? ひ と 
つ は 科目 で , ひと つ は 学期 で す . 科目 は 4, 学期 は 3 で すか ら 

ОІМ S (4,3) 
また は 

DIM S (3,4) 

に な り ま す . どちら の 書き か た を し て も か まい ませ ん . 上 の 例 で は 添 
字 の は じ め の 要素 が 科目 , 2 番目 が 学期 に まり ます し , 下 の 例 で は そ 
の 逆 に な り ま す . プロ グラ ム を 書く 時 に , し っ か り と 憶え て いれ ば よ 
い だ け の こと で す . と りあ え ず 上 の 例 で 話 を 進め まし ょ う . 

5 (1,1) =S (は じ め の 科目 , は じ め の 学期 ) = 1 学期 の 国語 

5 (3,3) =5 (3 番目 の 科目 , 3 番目 の 学期 ) = 3 学期 の 英語 
と いう よう に 理解 を すれ ば よい の で , これ ら の デー タ 入 力 に READ 文 
を 使う と すれ ば 別掲 の プロ グラ ム の よう に な り ま す . ここ で は まっ た 
く 同 じ 結 果 を 生む 2 つの 例 を 紹介 し て いま す . FOR 一 NEXT の ネス テ 
ィング (入れ 子 構造 ) は , いち ば ん 内 側 の ルー プ か ら 処 理 さ れ ま す . 
左 の リス ト は まず 1 一 3 学期 の 成績 を 先 に 読む た め に , DATA 文 も そ 
れ に 対応 きせ て いま すし , 右側 の リス ト で は 先 に 科目 が 読み こま れる 
た め , や は り DATA 文 も それ に 合わ せ て いる わけ で す . 

2 次元 の 配列 は よく 行列 式 と 対応 させ て 説明 され ます が , 数 学 の 行 
列 演算 と 配列 は 一 義 的 に は 結び つき ませ ん . 添字 が どの 要素 を 意味 し 
て いる の か を まず し っ か り と つか ん で お きま し ょ う . 
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デー タ の 並べ か えと その 応用 








* ネ いろ いろ ある 並べ か え 
の 考え か た 


※ 並 べ か え = ソー ト (sort) 


** 実用 的 な も の の ひと 
つが “シェ ルソー ト ” 





デー タ の な ら べ か え 


※ WHILE 一 WEND は , 与え られ た 条 
件 が 真 の あい だ は WHILE と WEND に 
は さま れ た 文 を 実行 する 


デー タ の 並べ か え , それ も 実用 的 で 時 間 の 速い も の を お ぼ ば えま しょ 
ВИЛ Z を 並べ か える < た ЕЗІНЕ 

51369210 

を 小さ い 順 に 並べ る と き は どう し ます か ? まず 片手 に ノー ト , 片手 に 
エン ピ ツ を も ち , 表 の 中 で いち ば ん 小さ いも の を 見 つけ , それ を ノー 
ト に 書い て , 表 の 中 の 数 字 を 消し ます . 残っ た 数 字 か ら つ ぎ に ま た い 
ちば ん 小さ いも の を 見 つけ て ノー ト に 書き …… と いう 方 法 を と る 人 も 
үз Тш Ээ. 人 人 に よっ て は 

5136 9210 

と いう よう に デー タ を 2 組 に わけ て , それ ぞ れ の グル ー プ 内 で 並べ か 
ぇ えて や り , その 2 組 か ら 順 番 に 小さ いも の を 見 つけ 出す か も し れ ま せ 
A. デー タ が 多く な る ほど , この 方 法 は 有効 で す . 


いずれ に し て も , 人 間 は 眼 で 見 を が ら す ぐに 判断 し ます が , コン ピ 
ュー タ は そう は ゆき ませ ん . メモ リ に 納め られ て いる デー タ を 1 個 ず 
つ 取 出し て は 比較 し な いと いけ な い の で す . 時 間 が か か る 代り に 絶対 
に ミス は し ませ ん の で , その 点 は と て も すご いと いえ ます . これ か ら 
考え る の は “シェル ソート "” と いっ て , デー タ を 半分 ずつ の グル ー プ 
に 分 け て や り , それ ぞ れ の グル ー プ か ら 1 対 の デー タ を 取出 し て その 
大 小 を 比べ , 並べ か える も の で す . 特別 に 速い 手法 で は な い の で す が 
《 デ ー タ は 大 小さ まさ まな も の が で た ら め に 並ん で いる も の 》 と い う 前 
提 に 立つ と , 単純 を 並べ か えよ り も 実際 的 に は 速い の で す . 

プロ グラ ムリ スト を 見 て くだ さい. 実際 の 並べ か え は FOR 一 NEXT 
の ルー プ で 行なっ て いま す . 比べ る の は X (I) と X (K) で す . た と えば 
は じ め に デー タ が 10 個 あっ た と し て , I が 1 な ら K は 「 デ ー タ の 半分 = 
5. に 1T( こ こと で は 1) を 加え を た も の で すか ら 5 6,。 つ まり X(1) ЕХ 
(6) を 比べ て 並べ か え を する , と いう の が 基本 で す . 1 回 分 の 並べ か 
ぇ が 終っ た か どう か は 行 番号 220 一 280 の 間 で 判定 を し , 終り な ら 行 番 
号 190 で 調べ る デー タ を 元 の 半分 に し て …… と うと どの くり か える し に 
な を り ま す . ここ で は X(I) に 入れ る 数 値 を 乱数 に よっ て 求め て いま す 
( 行 番号 130). 個数 は SAMP に よっ て きま り ま す . 
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並べ か え プ ログ ラム この プロ グラ ム で 数 値 に 関係 する も の な ら 小 さい 順に 並べ か え が で 


の 応用 と 注意 点 きま すし , も し 大 きい 順に 並べ か える の な ら 行 番号 250 の 判断 文 を 書き 
変え て 
IF X (I) <X(K) ……… 
да ОЕ әке рр 


※ カ タカ ナ の 並べ か え は 元 の デー タ を 


を な お, 文字 列 に つい て も まっ た く お な じ よ うに 並べ か え が で きま す 
Ж, BASIC に お ける 文字 の 大 小 ( つ づり の 順序 が 先 か , あと か ) ОЖ 
準 は ASCII の コー ド 表 に よっ て いて , カタ カナ な ども その 表 の 順序 で 
並べ か えら れ ま す . キャ ラク タコ ー ド 表 で は “о” な どの ほう が “ ツ ” 
より も 小さ い の で (カツ コ カイ コ カッ コ ) の 3 つの 文字 列 を この 


カッ コー カッコ, ガッ コウ ー カ ツ コ ウ ДЕУ SD ESE ЗЫ (лус Яш カツラ) 2% 


ЕЗ, あら か じ め 変 えて お く か , 7 
軌 グ ラム の 上 で それ を 工夫 し て お か な 


いと いけ な い . 


っ て し まい ます . 国語 辞典 の よう に 並べ か えら れ た も の は 一 般 に は ( カ 
и ора "k S y Ooh TAK 21.52. 





100 
110 
120 


130 FOR 1=1 TO SAMP :X(I)=INT(RND(1) +900) : МЕХТ 

140 GOSUB 360 '/............. ........а....... 77-Я tau" SUB 

150 Т1ЇМЕ%="00:0@:@@":'......... танке аы .. 947 3 リセ 9 ト 

160 N1=SAMP ドッ .r......... 0... ... オキ カエ 

170 

180 ИНПЕ МІЗ Cuesta P 644.66.000 amo nin ¿ma «ЪАЛАА Лү ーーーー 1 
190 N1=INT(N1/2):N2=SAMP-N1 `+... 77-99 292778 ! 
200 LOCATE 0,10:РКІМТ USINBG"N1=### М2=####";М1,‚М2 

210 ' 

220 FLA6=0 

230 FOR Ісі TD N2 "ss... ノノ チーー グ フウ 

240 K=I+N1 енене ar rr nene re з» 955 4 77-939 

250 IF Х(1) > X(K) THEN SMAP X(I),X(K) ELSE БОТО 270 

260 FLAG=1 

27@ NEXT I 

280 IF FLAG=1 THEN GOTO 2205 ‘eevee nene nee V=-k239)39 ñ254 | 
290 ИЕМ) ッッ ッッ ッッ ッッッ し し oo に に に に に と に に ror .......1)/ ルー フッ 97419 ー・・・・・・ーーーーー ユ 
300 

510 LOCATE 0@,12:6050В 3680 '................. 77-8 上 ョ ウリ” SUB 

520 LOCATE 0,21:РКІМТ ТІМЕФ '............... リー トニ 2749 32" 23 Ба?" 

3530 

540 END 

350 ' DATA ヒ 上 ョ 9 ウシ" SUB 

560 FOR 1=1 TO SAMPiPRINT USING "#####";Х(1);:МЕХТ 


370 





"ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ urxkU-h ## 039 ---> P" 4 ## ニニ ニニ ニニ ニニ ニニ エニ ニニ ニニ ニニ = 


DEFINT А-2: 5АМР=120:01М X(SAMP):MIDTH 80,25:CLS 


RETURN 
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2 次元 配列 を 使っ た 表 形 式 の 並べ か え 


* そ れ ぞ れ の 項目 を 中 心 まず 下 の デ ー タ を 見 て くだ さい . これ は プロ 野球 の ペナ ント レー ス 
に し て 並べ か える 中 の 打撃 成績 の 例 で す . 
名 前 打率 打数 安打 打点 勝利 打点 本 塁打 








篠塚 .354 144 51 25 6 4 
谷沢 .353 156 55 27 5 11 
弘田 .345 139 48 18 4 2 
上 川 „339° 121 41 7 1 6 
田尾 .325 169 49 23 5 9 


この デー タ は 打率 と いう 項目 を 中 心 に し て 成績 の よい も の か ら 順 に 
並べ られ て いま す が , 場合 に よっ て は 「 打 数 が 多い 順 」「 打 点 が 多い 順 」 
な ど に 並べ か えた い 時 が ある も の で す . も し 本 塁打 順に 並べ る の な ら 
谷沢 ( 2 番目 )・ 田 尾 (5 番目 )・ 上 川 ( 4 番目)・ 篠 塚 ( 1 番目 )・ 弘 田 (3 
番目 ) と いう 名 前 の 順に 表 が 作成 され る こと に な り ます 


*※* 補 助 の 配列 を 使う と , これ を 実現 する た め の ひ と つの 方 法 と し て , キー (кеу: 鍵 ) と な る 
こん な こと が 1 次 元 の 配列 を 使っ て み ま す . 本 塁打 と いう 項目 に 注目 し た 結果 
КҮ(1)-2 (1 位 に くる べき も の は 上 か ら 2 番目 ) 
KY (2) =5 (2 位 に くる べき も の は 上 か ら 5 番目 ) 
と いう よう に な り , 以下 KY(3) =4, KY(4) =1, KY(5) 3 と いう 
よう な 結果 を KY(I) と いう 配列 に 入れ る こと が で きれ ば 
FOR 1=1 TO 5 (5 人 分 の 成績 を 上 か ら 順 に ) 
FOR 1-1 TO 6 (名 成績 別に ) 
PRINT S (КҮ (1), J); 
NEXT J: PRINT (J が 終っ た ら 改行 ) 
NEXT 1 
と いう 出力 を する こと で , 表 形 式 の な ら べ か え が で きま す . た と えば 
まず 1 エー1 の 時 を 考え まし ょ う . 5(КҮ(1), J) と いう 配列 は , KY (1) 
ー 2 なので, S(2, J) が 表 の 出力 の さい し ょ に な り ま す . 配列 の 添 
字 に , 配列 を 使っ て いる こと に 注目 し て みれ ば , な る ほど と 納得 で 
ӘНЕ el NE の 
デー タ の 大 きい 順 か ら 並 べ る こと を 考え て 「1 位 の も の が 上 か ら 何 
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隊列 の 数 値 か ら 。 妥 位 を 求め る | gg '========= БАТА / %-І78 049 ノド ュ ウイ 9" swsasaamzanas 
ログ ラム 11@ / 
120 DAT=5:DIM (DAT) ,KY(DT) 
138 「ーーーーーーーー #°-9/ ヨミ コミ 
148 FOR I=1 TO DAT: READ (1DrNEXT 
158 "ーーーーーーー- -N イ し 90/ 9 ュ ッ 49 7 
160 А=1 б“. "тасв вв вз ва а サイ ラッ ョ ノ テ ーー タ カノ トリ ダッ 
170 WHILE A<=DAT 
180 MAX=X (А) 
198 JUN=DAT 755559199... 4727 371749 74742 9542 
288 FOR B=1 TO DAT 
210 IF WAX>X(B) THEN JUN=JUN-1 '+++9°124/79%7Л°% 
229 IF АВ AND X(A)=X(B) THEN JUN=JUN-1 
239 МЕХТ В 
ТЕПТЕ %-А4/93 7974 
KY( 1 )= 3 250 А= Атаке vn tit соф" 797-99 トリ ゲス 
KY( 2 )= 2 26@ WEND 
Шү 3)= 5 278 “-------- уел) イス "ルイ 
ЕР. 280 FOR 1-1 TO DATiPRINT USING"KY(W# )=##";1;КҮ(1):НЕХТ 
KY( 5 )= 4 Ыы 
ион 30 DATA -9,15,08,-90,5 





番目 か 」 が わか れ ば , KY(1) が 求め られ ます か ら , この よう な 表 形 式 
の 並べ か え で は , 補助 的 に 使う 配列 に , どう いっ た 手法 で これ を 実現 
する か を 考え な けれ ば いけ ませ ん . その た め の プ ログ ラム 例 を 見 て く 
だ さい. 


ポポ ポキ 順位 づけ の 考え か た ここ で は A と いう 変数 と B と いう 変数 を 使っ て いま す . この 2 つ は 
と も に デー タ の 数 だ け 1 2, 3…… と 変わ っ て ゆき , も と の 配列 の 
数 値 の うち , いち ば ん 大 き な も の が 何 番 目 か と いう こと を 探し て ゆく 
も の で す . МАХ (最大 値 ) は 1 回 ご と に 配列 の 値 が 代入 され る と 共に , 
さい し ょ は 最 下 位 の 順位 づけ を し て お きま す . こう し て お いて , B が 
1 か ら デ ー タ 数 まで 変わ り , その 中 で MAX よ り も 大 きい も の が あっ た 
ら 順 位 が ひと つ あ が る よう に し て いま す . 

順位 を 求め た ら , КҮ (D と いう 配列 に それ を 代入 し て ゆく と いう こ 
と を くり 返し て ゆく も の で す . 左上 に その 結果 の プリ ント アウ ト 例 が 
出 て いま す が , КҮ (1) = 3 …… 3 番目 の デー タ が いち ば ん 大 き な 数 値 
と いっ た よう な 結果 に な り ま し た . 行 番号 300 の デー タ と 比べ て 正しい 
順位 づけ が 行 を われ て いる こと を 確認 し て くだ さい . 

な お , この 並べ か え 判 定 は 大 一 小 へ の 降順 で す が , 小 一 大 へ の 昇順 
の 時 ほ 判 定 条 御 を 変え て や ざれ ば よい こと に な り ま す . また , この よう 
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МЛ 129%Ұ777 971749 ミ マ スカ 7 5 








ЕРЕ) 2207) 2719 ヒ ゥ トス ウ “тэ 9508999399 ーー ムラ ソ 
3229" (6) 354 144 81 2а 6 4 
34 (0) 325 169 49 23 5 9 
РИСО) Зн 53 156 55 27 5 11 
Еп? (Т) 345 189 48 18 4 2 
2537 (0) 339 121 41 7 1 6 
| ー に 
ІТ үт» 77 7 -99 5075 АМҮ KEY PUSH 





に , デー タ そ の も の を 直接 並べ か え ず に , 目印 と な る も の を 使っ て 順 
位 づ け を する 手法 は イン デック ス ・ ソ ー ト と いわ れ ま す . この イン デ 
ックス で 出力 結果 を 画面 に 出す に は 

FOR 1=1 ТО DAT : PRINT (КҮ (|) ) : NEXT 
と すれ ば よい わけ で す . 


ネネ ※ ネ ※ ネ プロ グラ ム の 実際 で は 実際 に , 5 入 の プロ 野球 選手 の 成績 を 表 形式 に まとめ , 打率 か 
ら 本 塁打 まで の 6 つの 項目 の どれ か ら で も , 一 覧 表 が 出 て くる よう に 
< みみ まし 上 う J』 さ き ほ どの イ ン デ ックス гт ЛУ ПИЛ 
すか ら そ れ ほ ど む ず か し く は あり ませ ん . 

ここ で は 選手 の 人 数 分 を DAT, 1 人 あたり の 項目 数 を PS と い う 変 
数 に し て いま す . DATA 文 は 選手 名 と , 2 れ ぞ れ の 成績 を 書き , FOR 
ーNEXT で 読み こま せ て いま す ( 行 番号 150 一 190). この 部 分 を INP 
UT 文 に すれ ば , も ちろ ん いろ いろ な デー タ が 扱え ます . 行 番号 210 一 
240 は いわ ゆる メニ ュー 画面 を 作成 する ルー チン で す . ここ で どの 項目 
を 中 心 に し て 並べ か える か を 求め , 何 番目 の 項目 か を K と いう 変数 に 
代入 し て いま すず す . 

行 番号 260 一 360 は , K で 指定 し た デー タ の 順位 を KY(I) と いう 配 
列 に 入れ る も の で , 前 の ペー ジ と 同じ も の で す . こう し て 出力 する 順 
序 が 決定 し た の で , その 結果 を ディ スプ レイ すれ ば ひと つの 作業 が 終 
る こと に な り ま す . 

な お , “選手 名 "や “打率” を どの いわ ば タイ トル に な る も の も 文字 








61 


列 変数 と し て 扱っ た ほう が , 画面 へ の ディ スプ レイ 時 に , 出力 位置 に 
つい て の 苦労 は 少 を く な り ま す . また , その 文字 列 変数 が メニ ュー 画 
面 用 に も , 結果 の ディ スプ レイ 用 に も 使え る の で 本 来 は そう すべ き で 
+. この サン プル プロ グラ ム で は 並べ か え ぇ 出力 の 骨組 を 知っ て も ら う 
目的 で 変数 の 種類 を 少な くし て いる た め , 変数 を 使っ て いま せん . Ж 
用 的 に 使い こなす 時 は それ を 採り 入れ る と よい で し ょ う . 





* = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ ヒョウ 749%23) т`-9/ 15\\°Лї ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
ояте 5:PS=6iDIM 5(рАТ,Р5) ,KY(DaAT) „МФ (ПАТ) iMIDTH B0,25:CLS 

スコ ゴマ で や ーー 77-82 азаз 
FDR 1=1 TO DAT:READ № (1): МЕХТ ‘++ 0:174 

FOR Ісі TH DAT 1 トッ ッッ ルト トト トト ** セリ リコ フト リブ 727 ヨミ 

FOR 1-1 TO PS “бұ... ......... *......... ェ ヤ イセキ 
. READ 5(1,/) 
NEXT J,I 


RRTNT 1 ニニ ニニ マ が リリ ウエ ニン ニニ ー ン 72209 だ に < っ Ез һд": PRINT 
РКІМТ"4----- 8“ту Баа Е ла] ere ж-452" : РВІМТ 
ІМРИТ"К) 2977“ 23243 ミ マ 2h カ "5K 
IF K<1 OR | THEN CLS:GOTO 210 
BF =s 45932 23249" 7 
Асі 74444444... !.....шш-в-.ш...........о4(/4/27-9) М9" 
MHILE ТОТА ЕСАЛЫ 70749" nN 
МАХ=5 (А, К) атылу, J q w sa s... à h. a eyeiece: 朋 リー サオ の ニオ チラ ЖФ3ТАТ 
JUN=DAT enn еа аин евиа тавдан дуое чаа 371242: #4042 #717 
FDR B=1 ТО DAT 
IF MAX>S(B,K) THEN JUN=JUN-1 err コッ イブ 797 が リ 
IF АВ AND S(A,K)=S(B,K) THEN JUN=JUN-1 297 が リ 
NEXT В 
KY(JUN) =A нннеее ЛЭ 79 テイ 
А-Ағ1 ....ғш-ашаввввевга». ЧЕ" 77-99 トリ ス 
MEND 
5. ааны yw) 774,174 
PRINT:PRINT:PRINT " セ フ ラ ュ メ イ グリ の 959 ヒト ヌメ ウ яту 5989095972 ボーム ラッ 
MRIINT "ーー ニニ ニニ ニニ ニニ ニニ テニ ーー ニニ ーーー ニ ーー ニー ニー ニーーーー ニ テー ニ ーーー ニニ ニニ ニニ ニニ ーー ニニ ニニ ニニ ニニ ニニ 
FOR 1=1 TH DAT 
PRINT USINB"& &"sN$(KY(T)) 5 に ・・・・・:・ .... .“........ .2...Х1/7У124 
FOR 0-1 TD PS:PRINT USINB" ж “:5(КҮ(І), 3; ВАТТ 
NEXT JiPRINT:NEXT I 
РКІМТІРКІМТ"79 27-99 2075 АМҮ KEY PUSH" 
IF INKEY$=""THEN 510 ELSE С15:60Т0 210 
ЮТА “ӨЛУ (6005? CD GT ED? (T) Sa の MOD) "94 (D)" 
DATA 354,144,51,25,6, 4 : 9/97 
DATA 353,156,55,27,5,11 : 959 
DATA 345,139,48,18,4, 2 : Еп? 
DATA 359,121,41, 7,1, 6 : 72577 
DATA 325,159,49,23,5, 9 :'91 
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配列 を ゲー ム に 応用 する 








* も っ と も や さ し い ゲー 
ム を 例 に し て みる 


** 爆 弾 を "か くす "と 
いう こと の 実際 


жәке HIDE ВОМВ えせ 


pip pas? 
ІжІ?І?І 
к-+-+-4 
|2121?1 
к-+-+-4 
1212161 


ТЕТ ЕЕ 


#75 23-h 


カー リ VMKEY 


6 が 


3° 


y" 4079 


-& 


配列 は いろ いろ な 数 値 計算 な ど に 使え を る と 共に , ゲー ム な ど へ の 応 
用 に も 欠か せま せん . シミ ュ レ ーション ゲー ム や クイ ズ 形 式 の も の , 
また オセ ロ な どの いわ ゆる “マス 目 ” を 使っ た も の な ど に 配列 変数 が 
活躍 し ます . 配列 と ゲー ム 感 覚 を 養う た め に , も っ と も シン プル な も 
の を 手 本 に し て 考え て み ま し ょ う . 図 の 3 x 3 の マス 目 の 左 上 が スタ 
ー ト , 右 下 が ゴ ー ル の いわ ば 区 画 き され た 野原 で す . この 区 画 の どこ か 
に 爆弾 が か くさ れ て いま す . それ を よ け て ゴー ル に 着け ば 成功 , 爆弾 
КЖЗЛЕБЫҢ, と いう ご と に じ ま す . "この ゲー スス で は 
© 爆弾 を か くす こと 
O 移 動 し を な がら, 各区 画 へ 行く こと 
〇 爆弾 の 上 に 乗っ た か , ぶ じ に ゴー ル に つい た か な どの 判定 を する こと 
の アル ゴリ ズム が 見 つか れ ば , プロ グラ ム を 書く こと が で きま す . 


で は この 9 つの 区 画 に 爆弾 を か みく し て み ま し ょ う . まず F (3,3) と 
いう 配列 を 用 意 し ます . この 配列 の , スタ ー ト 地点 で ある F(1,1) と 
т ФЕ (3,3) 以外 の どこ か に 爆弾 を か くせ ば よい の で , 乱数 に よ 
っ て , 1 から 3 まで の 数 値 を 発生 させ ます . と りあ え ず ひと つ は BX, 
ひと つ は BY と し まし ょ うか . ВХ-ВҮ-1, ВХ=ВҮ= 31225 0 
乱数 を 求め た ら , F (BX, BY) =1 と , この 配列 変数 だ け を 1 に し て , 
その ほか の 配列 変数 は すべ て 0 と いう 値 に する こと で , この 区 画 の ど 
こ か 1 ヵ所 だ けが 他 の 区 画 と は 違う も の に な り ま す . つま り , ここ を 
爆弾 の ある 場所 と いう こと に し ます . 

つぎ に 移動 きせ る こと を 考え ます . どの 方 向 に 行く か は カー ン ル キ 
ー を 使う こと に し まし ょ う . 右向き の 矢印 を 押し た ら X と いう 変数 が 
ひと つ 増 え , ар Ж DS U Оў D g. ED eu, САР 
ょ は X 一 1 として, 1 回 だ け 右 向き の カー ソル キー を 押せ ば Xー ミ 十 
1 に な る よう に し て お け ば , これ を 1 度 押す と メーX 十 1 で 2 に な り 
ます . 上 下方 向 も お な じ 考 え で 処理 で きま す . 

こう し て 新しい 移動 先 を 求め た ら , そこ に 爆弾 が ある か な いか を 判 
定 し て , 爆弾 が あっ た ら ゲ ー ム セッ ト に な り ま す . 具体 的 に 考え て み 
まし ょ う . 乱数 で BX=2, BYー 1 が 発生 し た , と し ます . 7 ЕЕ 





※ー は ASC の 28 
ーー は ASC の 29 
1 は ASC の 30 
| は ASC の 31 


(次 ペー ジ に 続く ) 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


240 
500 
318 
320 
330 
340 
350 
360 


370 ' 


380 
390 
400 
410 
420 
430 
440 
450 
400 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 ' 


580 
590 
508 
610 
620 


ааа НІРЕ BOMB !!!! +++ ++ +++ ++ + + 


DEFINT A-Z:DIM Ғ(3,3): МІШТН 40,25 
COLOR 4,0:С15 
IF ТІМЕ>20000 THEN ТІМЕ%-"00:00:00" 
セー っ スコ スム の ココ コー ァ コ ココ リョ ヤセ チイ ーー ニー ニー ニー ニー ニー ニーーーーー ニ ニニ = ニニ mm ニ エマ 
FOR X=1 TO 3:ҒОК Y=1 TO З:Е(Х,Ү) =0: МЕХТ YiNEXT X 
| キマ っ ーー ニー ニニ ニー ニニ ーー ニコニ ニコ の "リラ 792 ニー ニー ニニ ーーー ュー ニー ニャ アピ mmmiminwan 
RANDOMIZE TIME 
BX=INT(1+RND*#3):BY=INT(1+RND*3) 
IF BX=1 AND BY=1 THEN 190 
IF BX=š АМ) BY=3 THEN 190 
F (RBX,BY) =1 332. 77" フカ) アリ マヌ 


放 ネ ネネ ネネ ミネ エミ ミネ メメ スネ ミュ ミミ Д А 20 ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕ ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ ЗРЗЕ ЗЕ ЗЕ 


X=1:Y=1 サイ リョ ノイ チノ / 1974: 
GOSUB 749 7"ー ム フチ 77372972: '+ 
GOSUB 390 "イト "9 519')47: '+ 
BOSUB 520 ‘42: '+ 
BOSUE 550 N79 コカ 7 ルカ カナ トノ лЛу74: + 
68070 320: '* 


"ЖЕЕ + ЗЕ ЗЕ ЗЕ + + # ++ # + + ЗЕ # + # ЗЕ + + + + ЗЕ ЗЕ + ЗРЗЕ # # + ЗЕ ЗЕЗЕЗЕЗЕ + + + + + + + + + + + # + + +++ 


"ーーーーーーーーーーーーーーーーーー 489 ニュ ウリ ヨ 7 ------------------------- 
A$=INKEY$:IF А%="" THEN 390 
IF ASC(A$)=28 THEN X=X+1 “ミキ * 
IF X>3 THEN X=X-1:BOTD 500 
IF SC(A$) =29 THEN X=X-1 "67" 7 
IF Х<1 THEN Х=Х+1:60Т0 500 
IF АЅС(А$%) =39 THEN Y=Y-1 '?І 
IF Ү<1 THEN Y=Y+1:GOTO 500 
IF ASC(A$)=31 THEN Y=Y+1 ‘27 
IF Ү>3 THEN Y=Y-1:BDTO 500 
RETURN 
"エラ - ヨ 9/ ЯМ ゲス 
BEEP1: FOR Т=@ TO 200: МЕХТ: ВЕЕР@: БОТО 390 
--------------- 4599742 9-79 971 ---------------------- 
LOCATE 9+X*2,8+Y*2:PRINT"*";;RETURN 
エー ニー マー マー ニニ ニ ニニ ーー ニー ニー у9)\° 40 14397. ----------------------- 
IF F(X,Y)=1 THEN 6070 590 л" 79° 22-797! 
IF X=3 AND Y=3 THEN 660 “7747420!!! 
RETURN 


РОК Ізі To 1@: К КТШ ума унт 
FDR Т-й TO 1999:NEXT 
FOR C=1 TO 7:COLOR 4,C:CLS:FOR T=9 TO 200: МЕХТ T:NEXT С 











64 


(2.1) 一 1 に を っ て いま す . スタ ー ト 地点 は F (Х,У) で す . さい し ょ 
は Xー 1, マー 1 な の で , F (1,1) に いま す . Е (1,1) は 当然 , 0 に な 
っ て いま すか ら , 爆弾 の 上 で は あり ませ ん . 右向き の カー ソル キー を 
押し まし た 。 メ ー メ 十 1 で 2 に な り ま す 滞 MM は 1 の まま な の で , F (2, 
1) に な り ま し た . Е (2,1) が 0 な ら ま た 移動 の 入力 を し ます が , F 
(2,1) = 1 な の で ここ は 爆弾 の 上 と いう こと で , 残念 を が ら 失 敗 と いう ш 
わけ で す . 


*** 基 本 は ご く 簡 単 この ゲー ム の 基本 は この よう に ご く 人 簡単 で す . た だ , いか に も ゲー 
ム ら し くす る た め に は 画面 に 区 画 を 描い た り , 移動 きせ たら その 位置 
に 新しく マー ク を 作る こと や , 爆発 し た ら そ れ ら し い 音 を 加え た りす 
る な ど , いわ ば ゲー ム を 盛り あげ る アク セ サ リ ー 的 な 部 分 が ある た め 
に プロ グラ ムリ スト は や や 長い 行 数 に な り ま す . 実際 的 を ゲー ム の 骨 
組 は 行 番号 300 一 350 の よう に な っ て いま す . カー ソル キー を 押す た び 
に *※ ま マー ク が 移動 先 を 示し ます が , 設定 され た 区 画 の 外 に 出 な いよ う 
に 工夫 を する こと と , カー ソル キー に よっ て 発生 し た Xx や Y の 値 と L 
OCATE 文 と の 関係 , そし て ゴー ル に 着い た こと の 判定 方 法 が 分 れ ば , 
この プロ グラ ム を すっ か り 理 解 し た こと に な り ま す . 





550 COLOR 4,9:ELS 
548 БОТО 700 
ーー па ага аара ас саат 
560 LOCATE 10,20: РКІМТ "ОК OK OK !!! 1" 

670 PLAY"S2T6005BEGEBE" 

680 LOCATE 9+BX*2,B+BY*#2:CDLOR 2:PRINT"@" ‘2771719 ñ а 
&9Й. === у = の ポコ の ワニ フツ ズリ 月 リ エニ で ニニ ニニ ニニ ニコ に oga の 
700 LUEATE 10,22:PRINT"REPLAY? Y ог N" 

710 YN$=INKEY$:IF YN$="" THEN 710 

720 IF YN$="Y" OR YN$="y" THEN 130 

730 IF ҮМФ-"М" DR YN$="n" THEN ЕМІ ELSE 700 

АА ачен га ааа ЖЕРЫ ота ачан т 
750 (0САТЕб,З:РКІМТ жж HIDE BOMB жен" 

780 LOCATE 10, 9:PRINT" т—т-т—-" 

770 LOCATE 10,10:РКІМТ"ІжІ?І?І +25 メス 9ー ト リ " 

780 (0САТЕ 19,11:PRINT "トー キー+ー] 『 

790 LOEATE 10,12: РКІМТ" 1? 171721" 

800 LOCATE 19,13:PRINT "トー-+ー+ー] カー リル KEY ҒАМ?" 

810 LOCATE 10,14:РКІМТ"І?І?ІБІ" 

820 LUBATE 70, 15: РКТМТ' 2—27 

830 LOCATE 10,16:PRINT" b'P е ра 

840 RETURN 























すっ か り 分 る 


ファ イル の 探 作 
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シー ケン シャ ルフ ァイル の 基礎 一 1 








* ネ ディ スク と 本 体 と の 蜜 
口 を 開設 する 


※ プ リン タ や 通信 回 線 , キー ボー ド な 
どの , 入出 力 装置 の すべ て を ファ イル 
と し て 考え る こと も で きる . これ ら の 
ファ イル で は , まず どの ファ イル な の 
か を 指定 ( 例 : CAS, COM) し て か ら 
(85. ここ で いう ファ イル は ディ スク 
ドラ イブ を 使っ た , デー タフ ァイル を 
意味 する 


* ネ デー タ を 書き こま な 
く て も , ファ イル は 作ら 
れる 


ファ イル (file) は と じ こ み , と いっ た 意味 で す が , ここ で は と りあ 
ぇ え ず デー タ が 書き こま れ た 書類 と 考え れ ば よい で し ょ う . FM-77 で 作 
る こと が で きる デー タフ ァイル は 2 種類 あり ます . 

シー ケン シャ ルフ ァイル (sequential file) : 連続 記録 型 

ラン ダム アク セス ファ イル (random access file) : ペー ジ 単 位 記 
録 型 の ファ イル 

どちら の ファ イル を 使う か は , 5 — # QW US ko С 
り ま 3 まず シー ケン シャ ルフ ァイル を マス ター し まし ょ う . この フ 
ァイル を 使う と き に 絶対 に 必要 を こと は 

〇 ファ イル の タイ プ を 指定 する こと 

の 〇 データ を 書き こむ の か , 読出 す の か を 指定 する こと 

O 〇 コンピ ュー タ 側 の 仕事 な の か , ディ スク 側 の 仕事 な の か を 指定 する 
ふま っ 
で す . まず , も っ と も 簡単 な ファ イル を 作っ て み ま し ょ う . FM-77 を 
起動 させ た と き の , “How many disk files (0-15) 9” の と き , 数 字 
を 入力 し な いで , 単に リタ ー ン キー を 押し て くだ さい . これ に より , 
FM-77 の 内 部 で は ディ スク と の や り と り を する チャ ン ネ ル (窓口 ) が 
ひと つ だ け 設 定 さ れ , その 窓口 は ふつ う 1 番 (#1) に し ます . べつ 
に 后 1 に し な く て も , この ひと つの 窓口 の 番号 を #5 に し て も , #10 
と し て も よい の で す が, 窓口 が ひと つ で すか ら す な お に 井 1 と し て お 
きま 1926 


まず ディ スク ドラ イブ の 0 番 に , 書き こむ こと の で きる ディ スケ ッ 


ト を 入れ て か ら 
OPEN “0”, #1, “0: TEST 
と タイ プ し て ,。 リタ ー ン キー を 押し て くだ さい . ディ スク ドラ イブ が 
動作 し ます . た めし に 
FILES "0: 
と タイ プ し , リタ ー ン キー を 押す と , 0 番 に 入れ た ディ スケ ッ ト に 何 


が 収め られ て いる か を 知る こと が で き 
TEST 1AS1 








※ デ ィ ス ク ド ラ イブ の 0 番 を 使う と き 
は 番号 が 省略 で きる . 

ОРЕМ “O” #1, "TEST" や FILES 
な ど は すべ て 0 番 を 指定 し て いる の と 
お な じ こ と に な る 


ネネ ※ ネ デー タ は どう し ま 
われ て いる の か ? 


※CLOSE と する と , すべ て の ファ イル 
が 閉じ られ る 
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と メッ セー ジ が 出る で し ょ う . まだ デー タ は 何 も 書 きこ ん で いな か っ 
た は ず で す が , と に か く こ の よう な 処理 が され ます . さき は ほど OPEN 
命令 で , FM-77 と ディ スク ドラ イブ の や り と り の 窓口 を 開け て いま す 
か ら , いち どこ の 窓口 を 閉じ ます . 
CLOSE #1 
と タイ プ し , リタ ー ン キー を 押し ます . で は , 本 当 に ディ スケ ッ ト に 
TEST と いう 名 前 で デー タフ ァイル が 収め られ て いる の で し ょ うか ? 
た めし に FM-77 の スイ ッ チ を 切り , 再度 起動 さき せ ます . その の ち 
FILES “0: 
で , ディ スケ ッ ト の 中 味 を 見 て くだ さい . や は り TEST と いう 名 前 の 
デー タフ ァイル が 存在 し て いる こと が 分 り ま す . さて , これ は まっ た 
く 意 味 の な いも の で すか ら , ディ スケ ッ ト か ら 消 し 去り まし ょ う . 
KILL `0 : TEST 
と タイ プ し て リタ ー ン キー を 押す と 
Are you sure (Y or N) ? 
本 当 に 消し て し まっ て いい の で すね ? と いう プロ ンプ ト が 出 ま すか ら 
Y を タイ プ す れ ば 消し 去る こと が で きま す . 


いま の よう に OPEN 文 で 窓口 を 開け , CLOSE 文 で 閉め る こと と , 
ファ イル の 番号 を 指定 する こと , ディ スケ ッ ト の 中 味 を 知る た め の FI 
LES 命 令 な ど が , 本 体 と ディ スク ドラ イブ と の 基本 的 を や り と り に な 
り ま す . さら に デー タ を 書き こむ と き は 

PRINT #1, А 
な ど と いう 文 を 書き ます . この “А” は ディ スケ ッ ト に A と いう 文字 
を 書く の で は を なく“ 現在 , FM-77 の 内 部 で A と いう 変数 名 の も と に 記 
憶 き れ て いる 数 値 を ディ スケ ッ ト に 収め な を さい" と いう 意味 で す . Ж 
ж, デー タ を 読出 す と き 

INPUT #1, X 
と いう 文 を 書い た ら , 現在 FM-77 と ディ スク ドラ イブ で デー タ の 受け 
渡し が で きる も の の うち , 最初 に 見 つけ た 数 値 デ ー タ を X と いう 変数 
名 の メモ リ に し まう こと を 意味 し ます . 

な お , ディスケット に は 「 変 数 名 と 共に デー タ が 収め られ で いる 」 
わけ で は あり ませ ん . 書き こん だ 時 の 順 座 に し た が っ て デー タ だ けが 
収め られ て いる こと を よく 理解 し まし ょ う . 
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シー ケン シャ ルフ ァイル の 基礎 一 一 2 








* 読 み , 書き の 基本 


* ネ ネネ ディスケット に は ど 


の よう な 形 で 収め られ 
て いる の だ ろう 


жжж 自由 に 読出 す た め 


に は 


で は ディ スケ ッ ト に デー タ を 書き こみ , それ を 読出 す 実 験 を し て み 
まし ょ う . まず , A$ に 文字 列 を , X に 数 値 を 代入 し ます . その 次 に 
この デー タ を 収め る と き の フ ァイル 名 を 何 に する か を 求め て , それ を 
FLNM$S に 代入 し て お きま す . 準備 が 終っ た ら OPEN 文 で #107 
ァイル を 指定 し , А%, X の 2 つの 変数 の 中 味 を ディ スケ ッ ト に 収め 
ӚЗІ идән 

念 の た め , 行 番号 230 で A$ と XX の 変数 の 中 味 を FM-77 の 内 部 か ら 
消し 去っ つて お きま し ょ う . 本 当 に ディ スケ ッ ト か ら 読 出し か どう か を 
チ ァ テウ ク すず す ぞ だ た め に , СС 7. ЕС, ディ イス ケッ ト に 収め られ た も の の 
内 容 を 見 た か っ た ら “Ү” を 入力 し ます . デー タ を FM-77 に 読ま せる 
た め に , 入力 の た め の 文 を 書き こみ ます . この 時 , 書き こん だ ファ イ 
ル 名 を 指定 し # な けれ ば いけ ませ ん . ここ で は FLNM$ に 代入 され て い 
る 文字 列 で 指定 し て いま す . 


ас, で は まず さい し ょ の 文字 列 を 読出 し まし ょ う . ここ で は 変数 
名 に X$ を 使い 文字 列 を , A に 数 値 を 代入 し ます . 注意 し て ほし い の 
は , ディ スケ ッ ト に は 文字 列 と 数 値 だ けが 単なる デー タ と し て 記録 き 
れ て いる だ け で すか ら , 文字 列 を な ら 文字 列 変数 , 数 値 な ら 数 値 変数 を 
使い さえ すれ ば よい こと で す . 書き こむ 時 に は A$ に 代入 され て いた 
も の を ディ スケ ッ ト に 収め , 読出 す 時 は X$ を 使っ て も , いっ さい の 
不都合 は あり ませ ん . 

な を お, 断る まで も な いこ と で す が , わざ わき 変数 名 を 変え る 必要 は 
な い の で , 本 番 の プロ グラ ム は , この サン プル の よう に 書い て は いけ 
ませ ん . いわ ば これ は 悪い 見 本 な を の で す が , 収め られ た デー タ の 本 質 
が どう いう も の で ある の か を 知っ て ほし いた め に , あえ て 変え た も の 
な を の で す . と いう わけ で , ディ スケ ッ ト か ら 読 出し た デー タ が 画面 に 
出力 され ます . 


この プロ グラ ム を 一 度 実 行 す る と , ある ファ イル 名 の も と で 文字 列 
が ひと つ , 数 値 が ひと つ , ディ スケ ッ ト に 収め られ ます . で は , いつ 
で も 自由 に この デー タ を 読出 す た め に は どう し た ら よ い の で し ょ う ? 





PRINT #, МРОТ&#ФЖЖ7п7>Ь}У 
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100 '========== PRINT#,INPUT# SAMPLE 1 ======= 
110 MIDTH89,29:CLS 

120 INPUT" ス キナ モラ С 9У7 "А$ 

130 INPUT" ス キナ 2989 МУ" "фу 

140 INPUT" フ ァイル メイ 用 722 リマ スカ (BE ジリ イナ 1) ";FLNM$ 


150 

160 “--------------- PRINT % ---------------- 
170 ОРЕМ "D",#1,"0:"+FLNM$ に ・・・・ ュ ・ М 242709 "л? 
180 PRINT 1,46 '................ ・ カ キ コ ミ 

198 PRINT #1,X “s.s... Б Өл гы 47%: 

200 CLOSE 「・・・・・・ өзе таза яса s s ma а ЭК 0549 ҚМШ 
210 

220 :-------------- %:-99 571) --------------- 
230 А%-"":Х-й '.......... аваа パッ スズ ウラ 97 


240 РКІМТ:РКІМТ 

250 INPUT "イマ ЖП?у9%/9 КЧЭ" 9л) (Ү ог М) "; ҮМ 
200 IF YN$="N" ОК ҮМ%="п" THEN РКІМТ "ЕМО" : ЕМ 
270 IF ҮМ%-"Ү" OR ҮМ№="у" ТНЕМ 500 ELSE 250 
280 ” 

ao ニー ニニ ニー ニニ ニー ニニ ニー ご ІМРІШЕейс---аслргистстғуа 
300 ОРЕМ "I",#1,"0:"+FLNM$ "7" pit" 
510 INPUT #1,X$ 7»,.ңыы ы, -9 9 ヨム 
320 INPUT #1,А /'.......,........;°-# 9 ヨム 
330 CLOSE ”.......................7,%7%%Я9 һу") 
340 ' 

550 аса ы са "WY ТІР жеса саат а зы 
360 PRINT "カキ コッ ル 9 t" ="; X$ 

370 РКІМТ",%127/7 29%: "ҘА 

580 END 











02 Z2.ITELNM $ I TESHT Ж (#— 7 p 0269. РИ ШУ 
ラム を “ЅАМРІЕ” と いう 名 前 で ディ スケ ッ ト に SAVE し た , と い 
う 前 提 で 話 を 進め ます . いち ど ス イッ チ を 切り 

LOAD ` SAMPLE” 
と する と この プロ グラ ム が ロー ド さ れ ま す 。 0 k. сш 
変数 は 空 で すか ら , まず 

FLNM$ = "TEST” 
Е U) Утан дс 

RUN 300 (ある い は GOTO 300) 
と タイ Z し レ し で り タ ー ン キュ コー を 押し みて くだ さい 。 この デ ロ グ ラム の 
行 番号 300 か ら 実 行 さ きれ , ファ イル か ら X$ と A と いう デー タ を 読出 し 
て , 画面 に 出力 し ます . 
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シー ケン シャ ルフ ァイル の 基礎 一 3 








* 配 別に 入っ て いる デー 
タ を ファ イル に 収め る 


ж FEND が 実行 され る と , ファ イル は 自 
動 的 に CLOSE さ れる 


** 逆 操作 で 読出 す 


ネネ ネ キネ とりあえず デー タ を 
読出 し て みる 


өзе) 数 多く の デー タ が 配列 に し まわ れ て いる 場合 , それ を ファ 
イル へ 書き こむ と 共に 読出 す 方 法 に つい て も 考え て み ま о 5, 
右 の ペー ジ の 上 段 の リス ト を 見 て く だ さい <. 30 個 の デー タ を READ X 
で 読み それ を 配列 に し まい , きら に “SAMP. X30” と いう ファ イ 
ル 名 で ディ スケ ッ ト に 書き こむ プロ グラ ム で す . デー タ の 数 が いく つ 
ある の か を , N% と いう 変数 を 使っ て 処理 し て いま す ・ 

デア ー タ を し まう と き に も , まず この N% を 書き こみ , その の ち に N 
回 だ け FOR 一 NEXT を くり か え し て いま す . сое УЛА, い 
わ ば 書き こみ 専用 で すか ら , 読出 す た め に は 別 の プロ グラ ム を 使う こ 
と ど に な りり ます 。 


デー タ を 読出 す プ ログ ラム の サン プル 1 が 右 ペ ー ジ 中 段 の も の で す . 
ここ で は ファ イル を オー プン し , まず デー タ の 数 が いく つ な の か を 知 
る た め に N め と いう 変数 を 使い ます . これ を 求め た ら , DIM 文 で 配列 
宣言 を し た の ち , 書き こみ プロ グラ ム と お な じ よ うに FOR 一 NEXT を 
使っ て デー タ を X(1) に 代入 し て いま す . 書き この 2 ウム と 読出 
し プロ グラ ム は 1 対 1 の 対応 を し て いる , ご く オ ー ソ ドッ クス な 手法 
と いえ る で し ょ う - な お 5 FOR 一 NEXT に 使う 変数 は , ЕРАМ の 
(30) で す が , た と えば FOR 1%-1 ТО 20 と , N% よ り 小 さい 数 
を 使う 時 は エラ ー を 起 し ませ ん . その 代り , た と えば FOR 12-1 
TO 32% ど と N% よ り も 大 きい 数 を 使う と , “Tnput past end”. も 
ゥ デー タ が な い の に 読出 し 命令 を し て いま す , と いう エラ ー に な り ま 
СДА 


デー タ が どれ だ け 収 め ら れ て いる か が 分 ら ず に ファ イル 操作 を する 
こと は , 原則 と し て あ り 得 な いこ と で す が , さ СА F 
OR 一 NEXT を 使わ ず に 画面 に 出 し て み ま し ょ う . それ が 下段 の プロ 2° 
ラム で す .。 ディ イス ケット に 収め られ て いる N%% は 単独 で 読出 し , さき 
ほど の 30 個 の デー タ 群 を 画面 に 出し て み ま す - 

これ が 行 番号 150 一 170 で す . WHILE NOT EOF (1) は (УУ А 
ル に デー タ が ある 間 は ) と いう 意味 で す . EOF (エン ド オ プ ・ フ ァ イ 





配列 変数 を ファ イル に 書く Py 


上 の 逆 操作 で 
ファ イル か ら デ ー タ を 読む 


EOF 関数 を 使う 


Ж Input past end エ ラー が 起き た ら , 
いっ た ん ファ イル を 閉じ な けれ ば いけ 。 
な い 





7 1 





100 
110 
120 
130 
140 


150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


100 
110 
120 
150 
140 
150 
155 
156 
160 
170 
180 


100 
110 
120 
150 
148 
150 


168 、 


170 
180 
190 
200 





"ニニ ミニ = ニ == РКІМТЯ,ІМРИТЯ LESSON 2 ======== 
š 7 ラコ の 9 の 
DIM X(30):NZ=30:CLS 「・・・・・・・NZ= テ "ーー タダ 7 カス 
РОК 17=1 TO NZ 

READ X(1%) 
NEXT 17 


OPEN"D",#1,"SAMP.X30Q 

PRINT #1,NZ i テー カノ カス "テラ 92597" 月 キ コム 
FOR 17-1 TO NZ:PRINT #1,Х(17):МЕХТ 17 
CLOSE 


END 


DATA 1,5,88,54,33,351,258,952,541,120 
DATA 3,62,80,44,55,85,44,200,31,-520 
DATA 23,12,805,414,255,-805,84,20,15,-10 


"= ニニ = ニニ PRINT#,INPUT# LESSON 2-1 ===== 
[ Dr の 3 д i 
MIDTHB9,29:ELS 
0РЕМ"І",%1,"5АМР.Х30 
INPUT #1,NZ:DIM ХОМА) 977-9935 A イ ルリ シ ティ 
FOR 17-1 TO NX 

INPUT #1,X(IZ):PRINT Х(17), 


NEXT 17 

CLOSE 

END 

"ニニ ニニ ニニ = ニ PRINT#,INPUT# LESSHN 2-2 = ニニ ニニ ニニ 
カー クラ な が で 2 

MIDTH B@0,20:CLS 


ОРЕМ"1"‚,#1,"б5АМР.Х3@ 

INPUT #1,NZ 

MHILE МОТ ЕОР (1) '.....774%&2 7°-#7°7%749°—- 
INPUT #1,Х:РКІМТ X, І 

МЕМО '.............,....]Мр\)Т# 3 279419----- 

CLOSE 


END 








м) は 関数 で , ファ イル が 終ら な い 間 は 偽 を 返し て きま す . し た が っ 
С, NOT を 使う こと で 「 フ ァイル が 終ら な い 間 は 真 」 に な り , WEND 
で は さん だ 部 分 の 命令 を 実行 し ます . 
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デー タ の 読み , 書き , 訂正 , 消去 








* ま ず , 簡単 な 例 で ファ も っ と も 簡単 を ファ イル 操作 を 考え まし ょ う . と りあ え ず 「 フ ロッ 





イル 操作 を ピー 日 記 」 と いう こと に し て , 年 ・ 月 ・ 日 を 入力 し , それ を ファ イル 

名 に し , 1 回 ご と に ひと つの 文字 列 を 記録 し て ゆき ます . ファ イル へ 
の 書き こみ , 読出 し に つい て は すでに 知っ て いる は ず で すか ら , ここ 
で は 説明 し ませ ん . それ ぞ れ を サブ ルー チン に し て , 必要 に 応じ て 呼 
び 出 す よ うに し て いま す . ファ イル 名 は “NK” 十 YMD$ に な り , YMD 
$ は 6 ケタ の 数 字 で 入力 し ます か ら , 最終 的 を ファ イル 名 は た と えば 
84 年 12 月 1 日 な ら “NK841201" と いっ た も の に な り , この 名 前 か ら 逆 
に 日 付 を 見 つけ ます . 

100 '"= ニ = ニニ = ニニ ニニ ニニ ニニ ニニ ニニ ニコ Ф + FLUPPY DIARY Ж # ニニ エニ ニテ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 

119 

120 MIDTH 40,20:С15 

130 А6 не M E N U *##*##*##*#";LOCATE 0,4:6050ИВ 650 

140 = len こ 9 キ すう Л7":10САТЕ @,6:6050В 650 

150 Аў="2...... ,e 284) т4б4":10САТЕ 0,7:60SUB 650 

160 A "3...6... .27%7 ミル ":LUCEATE @,8:6050В 650 

170 А$="4........ +++15%Э3 y2":LOCATE @,9:6050В 650 

18@ 人 リッ ッッ ッッ ドド ッッ ロロ ウリ ョ ウリ ELUCATE 9,19:GBUSUB 650 

190 Ав U +++ +++ ++ ЕЕЕ енен": ПСАТЕ 0,12: 60508 650 

200 人 = リト "ルー отл) コト ?":10САТЕ @,15:6050В 650 

21@ MENU$=INPUT$(1) :MENU=VAL(HENU$):IF МЕМИ<1 OR MENU?5 БОТО 210 

220 ON MENU БОТО 240,320,390,460,500 

25” 

240 СІСІРКІМТ Жж 74%) ЛЯ: ЖҰР ыы 

250 BUSUB 680 -.б:ы:е:ңее” е.  . ба2:.884...2-..2-ҮҢ) INPHT 

260 А%="2*° 07399 ト "99" (МАХ 255 Е") ":1 ОСАТЕ @,@:6050В 659 

270 INPUT NIKKI$ 

280 GOSUB 550 '............ ИЕЛИ Wan. B... „++,+774% 9774 

290 БОТО 12@ ‘ононе А. АН. б ЕЕ а л=м ҰК? 

304” 

310 

320 CLS:PRINT жеке 9%) ТІРІ жаа а +++ 

330 GOSUB 680 '.-.............. 22524 488022: .....2 4м.....ҮМр INPUT 

340 GOSUB 600 に に に ッッ に に トト ッッ トッ トト トッ トト ュー гз48242..4-2....Л34%Л9) ав” 

350 PRINT:PRINT МІККІФ '·. モト ノブ リリ リョ ウ 

369 PRINT:PRINT "テイ セイ ノ フ 2" フラ ショウ チト" 9 ウリ "sa INPUT МІККІФ Fi セイ" 

379 KILL"9:"+YMD ま $: BUSUB 550 нани нн ФО 

380 6070 1200・ ッ ッッッ ッッッ レト レッ ッッ ドド ドッ ッッ ドッ し Е еа ЕКВ 


390 





С5: РЕІМТ жекке 267 51 ЗЕ ЗЕЕ ЗЕЕ ЗЕ ЗЕЕ ЗЕЕ ЗЕ 


























』 イ クウ ロフ ロッ ピー に 日 記 を つけ る 
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内 容 の 訂正 は , まず 元 の デー タ を 読出 し て 画面 に 出し , 訂正 し た い 
文字 を 求め た ら , 元 の ファ イル を 消し て か ら , 新しい 内 容 を 書き こみ 
ます . 内 容 を 消す と き は KILL 文 を 使い ます が , プロ グラ ム の 中 で フ 
ァイル を 消す と き は “Are you sure?” と いう メッ セー ジ は 出 ず に , 
プロ グラ ム に し た が っ て で 消し で し まい ます 。 

ЖБ, メニ ュー の 1 一 4 まで の ルー チン は , それ ぞ れ が 終了 する と 
入っ どる おう (58 る で すず .、 メニ ュー の 5 ЗЕН 
ァイル を CLOSE し て , プロ グラ ム の 実行 を 終了 し ます . 全体 で 70 行 
ほど の リス ト で す が , それ ぞ れ の ルー チン は 短 か い の で プロ グラ ム の 
流れ は すぐ に 分 る と 思い ます . 画面 に 出す 文字 列 を 左右 の 中 央 に 出す 
た め に , 行 番号 650 で 40 桁 か ら 文 字 列 の 長 さ 分 を 引き , それ を 半分 に し 
た 空白 の 文字 列 を 利用 し て いま す . 





400 
410 
420 
450 
440 
450 
400 
470 
480 
490 
500 
510 
520 
550 
540 
550 
560 
570 
580 


590 ' 


600 
610 
620 
630 
640 
650 
660 
570 
680 
690 


GOSUB 580 ere YMD INPUT 
GOSUB 500 ドド ドド ドド ドド に に に に ファ イカ ラノ ヨミ ガーラ 
PRINT:PRINT NIKKI$ 

PRINT:PRINT"OK? 221-4 ЕК" 075 ANY KEY PUSH" 

IF INKEY$<>"" THEN 120 ELSE 440 


ELSiPRINT" жене の キ す ガス ЖҰЗ 
GOSUB 580 ^+, ә, жже жже, ж, ев», ҮМ INPUT 
KILL"0:"+YMD$:6OTO 12@ ドド に ドレ に に ooo メニュー) モト ドル 


--------------------- THE END ニー ニニ ニニ ニー ニニ ニッ ニニ ニニ ニー ニニ ニニ ニー ニニ ニニ ニニ ニー ニー 
ELS:A$="T HE E N D":LOCATE 0,10:60SUB 650 

CLOSE:END 

БҮТТТІТІІТІТІТІТГТІТТТІІІ ЕЕЕ 97 ААА 
"ーーーーーーーーーーーーーーーーーーーーーーーーーーーー 7141: ---------------------------- 
DPEN"0",#1,"0:"+YMD$ 

РКІМТ %1,МІККІ% 

CLOSE:RETURN 

---------------------------- ER -----------------Д-..-..-.Л5 


ОРЕМ "I",#1,"0:"+YMD$ 
INPUT#1,NIKKI$ 
CLOSE: RETURN 


"ーーーーーーーー Ез) уз?) 
PRINT 5РАСЕ9((40-(ЕМ(А6))/20АФ:БЕТИЯМ нене tup-u 0Т 


"ーーーーーーーー YMD$ INPUT 
С18:ІМРИТ"72%728778 7" スカ (ルイ B40909)";YMD$:IF LEN(YHD$) く >6 THEN 680 
YRD$="NK"+YND$:RETURN 
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ラン ダム ファ イル の 基本 








* ま セク タ 上 単位 で 記録 


※ 工 夫 を すれ ば , 1 セク タ に 複数 の デ 
ー タ を 詰め こむ こと が で きる 


*※ ま PUT で デー タ が 書き 
こま れる 


гта /2 
УУ ЕЗ (7 М), 
ラン ダム バッ ファ 


“3, ‹ = 





仕切 り の ある 箱 か ら り ん ご や みか ん , 
b も を 取出 し て ディ スケ ッ ト ム 移す 


ラン ダム ファ イル (randomaccess file) は , ひと つの デー タ 群 を 
まとまり の ある も の と し て 扱い , それ ぞ れ に レコ ー ド 番号 (デー タ を 
何 番目 に 記録 し た か の 目印 ) を つけ る も の で す . デー タ を 取出 し た り , 
訂正 する 時 を ど は この レコ ー ド 番号 を 使っ て 直接 操作 で きる と いう の 
が 最大 の 利点 に を っ て いま す . その 反面 , 1 デー タ の 記録 用 に 1 Z 
ディ スケ ッ ト の 区 画 の 単位 ) を 使い ます か ら , 1 文字 分 を 
記録 し て も , 255 文 字 分 を 記録 し て も 一 定 の 区 画 を 使っ て し まい ます . 
また 数 値 デ ー タ は 記録 で き な い こと や , 1 デー タ 群 に 複数 の デー タ が 
ある 時 (И : 住 所 と 電話 番号 と 氏名 を など) な ど は , この セク タ を どう 
使う か を あら か じ め 決 め て お か な けれ ば な ら な いな ど , いろ いろ な 手 
続き を し な けれ ば いけ ませ ん . 

また , コン ピュ ー タ の デー タ は バッ ファ (buffer : 緩衝 装置 . 電 子 回 
路 同士 や , 回 路 と メカ ニズム 部 な ど が 互い に 干渉 し な いた め の 回 路 や 
装置 と いう の が 原義 ) を 通じ に て ディ スク ドラ イブ と の や り と り を する 
の SG れれ の フン ンク ムン ア イル で は デー クタ の や り 人 多き EE РОТ と 
いう 命令 で 実行 し ます . 


7 (sector ・ 


まず ラン ダム ファ イル の 基本 を し っ か り と 頭 に 入れ まし ょ う . 
ОРЕМ *К”, #1, バレ ン シ ュ ウン 
と みみ イプ し て っ ウニ ン キ キー を 才 ( し で で くださ MA usq e ge ファ イル 
が 作ら れ , ディ スケ ッ ト に は “レン シュ ウ "” と いう ファ イル が 作成 き 
れ て ます . この デー タ が 書か れ て いな い フ ァイル は 
KILL バレ ン シ ュ ウィ 
で 消す こと が で きま す . ラン ダム ファ イル の 作成 ・ 読 出し の も っ と も 
簡単 を 例 を サン プル に 示し ます . デー タ の 書き こみ を 命令 する の は 
PUT 〈 フ ァイル 番号 〉, < レコ ー ド 番号 
で , これ が 実行 さき れる と バッ ファ に ある デー タ が ディ スケ ッ ト へ と 転 
送 さ れ て 記録 きれ ます . この プロ グラ ム で は N=N 十 1 と , レコ ー ド 番 
Fi 1952542 Ç А М В НЕ と いう 番号 で 書き こ 
まれ て ゆき ます . な お , 記録 用 の XRS$ は 200 バ イト 分 を 設定 し , 左 づ 
め 指 定 を の で , 画面 に 出力 し た 時 も 左 づ め に な り ま す . 
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**k* GET で デー タ を 取 サン プル の 上 の プロ グラ ム を 実行 し , “TEST” と いう ファ イル を 
出す 作っ た ら , この プロ グラ ム を 適当 を 名 前 , た と えば “РОТІ” な ど と 
ИС, SAVE し て くだ さい 。 つぎ に ド の プ ログ ラバ あ /( 代 股 遇 二 90 お 
実行 する と , “ТЕ5Т” の ファ イル 名 の も と に 何 個 分 の デー タ が ある の 
か を まず 知ら せ て くれ ます . その デー タ 和 群 の 中 の 何 番目 が 見 た い の か 
を 数 字 で 入力 する と バッ ファ に は 指定 の デー タ が 送ら れ ま す . それ が 
行 番号 160 の GET 文 で す . 
GET 〈 フ ァイル 番号 〉,。 〈 レ コー ド 番 号 ) 
を 実行 する と , 指定 の も の が 取出 され ます . 
を な お, 書き こみ の プロ グラ ム で は レコ ー ド 番号 を 1 きざみ で 指定 し 
МӘЖ, ЕЕХИЕУРШОВОТИЯ С 
140 М-М--10 
5, 10 き ざ み に する と , 見 か け 上 記録 数 が 増え て し まい ます . 書き こ 
жон, 3 つの デー タ だ け を 記録 し た と きも N=10, 20, 30 で , 最後 は 
30 で すか ら , 下 の 読 出し プロ グラ ム で も , LOF (レン クス オプ ファ イ 
№) は 「30」 と いう 数 値 を 返し て くる わけ で す . ラン ダム ファ イル も る そ 
の フォ ー マ ッ ト (format : 形式 ) を 守れ ば , 難し く あ り ま せん . 
100 "ーーーーーーーーーーーーーーーーーーーーーー 37974 774% 1/7%2: --------------------------------- 
110 N=9:MIDTH 89,29:CLS 
120 OPEN"R",#1,"0:TEST" ё........................ТЕ5Т トイ ウ 2748247528" ム フ ァ イル 974 
130 FIELD %1,20045 XR$ '...... 444......ш-жа аа... 200" 4 トノ XR も $9 キロ 2 ヨウ ー リリ アテ ルル 
140 N=N+1 
150 INPUT "テス トヨ 9 ウノ 1979 KY99 °; X$:LSET XR$=X$ 「・・・ ニ ュ ウ リョ 29 上 29" リリ "メー 074 
15@ INPUT"99" ур... オ ワ 9 リ ・・・・・2 7 Y 
170 IF Y=1 THEN РИТЯ1,М:6070 140 「・・・・・・・・・・・・・・・1 ル コー ト " フフ ラ 74612 
180 IF Y=2 THEN PUT#1,N:CLOSE:END 「・・・・・・・・・・・・・・1 ル コ ゴート" フッ ラ 741797 498 
190 GOTO 169 
100 '----------------------- 3787. 2248 1 / ヨ ミコ ミ -------------------------------- 
110 MIDTH 80,20:С15 
120 OPEN"R",#1,"0:TEST" 0.......... 44......... ・・・TEST 849794474) 529" 022443 ジテ イ 
130 FIELD #1,2@@А5 XR '.........................20@л0`4^/ XR$3 ラフ 7 用 "9797 
140 NUM=LOF(1):PRINT "#077" - 9"; МИМ '..............+п7%074% ルコ ー ト " / 7277 モト メル 
150 INPUT" け フル "フラ ミッ スカ "jiNi ITF N<1 OR N>NUM THEN 150 
16 БЕТІН, МіРБІМТ XR の < ッッ ッッ ッッ ・ ッ ッッ ッッ ッッ ッッ ドッ ッッ ッ ル コート" ノリ "フウ コ "ウラ サテ イッ テ "ー99 ヒ ョ ウッ" 
170 INPUT"99" 7 あま ・・・・・1 72720.....2";ү 
180 IF Y=1 THEN 150 
190 IF Y=2 THEN CLOSE:END 


2@@ 


8070 170 
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FIELD 文 と L/RSET 文 








* 区 画 を 設定 する 
FIELD 文 


*※※LSET と RSET 


ラン ダム ファ イル 用 の バッ ファ は フロ ッ ピ ー の 1 セク タ と 1 対 1 の 
対応 を し て いま す . 256 バ イト 分 を どう いう 形 で 区 画す る の か , それ ぞ 
れ の 1 区 画 に どう いう 形 で デー タ を 収め て お く か を , あら か じ め セ ッ 
ト し て お か な けれ ば いけ ませ ん . それ が フィ ー ル ド (field) 文 で す . 
フィ ー ル ド は 野原 , 分 野 と いっ た 意味 で す が , ここ で は 区 画 分 け と で 
も 解釈 し て お きま し ょ う . 

FIELD [ファ イル 番号 〕, [設定 バイ ト 数 AS 変数 名 ] 

と いう 書き か た を する と , FM-77 は それ に 従っ て , 変数 名 を それ ぞ れ 
の 区 画 に セット し , PUT 文 が 実行 さま れる と ディ スケ ッ ト へ と 書込み ま 
79%. 

も う ひ と つ , LSET / RSET 文 で 文字 列 を 左 づ め に する か 右 づ め に 
する か を 指定 し ます . この 2 つの 操作 を し て か ら PUT す れ ば , デー タ 
が フロ ッ ピ ー に 書 込 ま れ ま す . 


サン プル プロ グラ ム を 見 て くだ さい . 

ここ で は 3 つの 文字 列 を 20 バ イト ずつ , 3 つの 区 画 に し て いま す が 
2 番目 は RSET, それ 以外 は LSET に し て いま す ( 行 番号 140 一 150)、. 
RSET と LSET の 実際 を 見 て み ま し ょ う . 実行 例 の 「 3 つ を 出力 」 
を 見 る と , LSET は 画面 の 左 か ら 出 力 さ れ , RSET は “変数 の 先頭 
ж5” 20 文 字 分 で 切捨て られ て , 右 づ め 出 力 に な っ て いる こと が 分 り 
+. 

これ を さら に 明確 に し た の が 「3 つ を ひと か た まり で GET」 し た も 
の で , ここ で は GET す る た め の フ ィ ー ル ド を 60 バ イト 分 に 設定 し て , 
ひと つの 変数 名 で , バッ ファ か ら デ ー タ を 取出 し て いま す . 結果 は 実 
行 例 を 見 て も 分 る よう に , フロ ッ ピ ー に 書か れ た デー タ が 左 づ め ・ 右 
づめ ・ 左 づめ の 形 で 出力 され まし た 人 ( 行 番号 280 一 300). 

“ш a ЛА? ОПА РЕ 

文字 列 の “コン ニチ ハ " 十 15 字 分 の 空白 の 文字 列 
と いう 形 で フロ ッ ピ ー に 入っ て いて , “コン ニチ ハ ” の 右側 は 単 を る 
余白 に な っ て いる わけ で を く , 文字 列 に を っ て いる の で す . これ を 確 
認 す る に は RSET の デー タ を , PRINT USING 文 で 出力 する と よい 
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で し ょ う . た と えば EIELD 文 で 5 バイ ト に 設定 し , RSET 操 作 を し た 
ー タ (変数 に は “『 ミ ホン” が 代入 され て いる と し て ) 

Ше сеу 

と いう 形 で フロ ッ ピ ー に 書か れ て いま す . PRINT USING 文 を 使っ 
ОУ, РОК Г ミホ ン 」 と いう 形 で 出力 され , ふつ う の 変 数 の よ 
ЭРГЕ Д ПОМЕНА ЖБ, УУ Z) Z ШУО 
レコ ー ド 番号 を 指定 し て いま せん が 実行 の た びに 1 ずつ 増え ます . 








рО аа ЕБ 2) 

к АМР ЗАЙ ОЭЗИУВЕТЯКУЛЕТОТӘЛТЕ 2577 

ҰЯТЫ” 32 FN ニ の 7 アス 2 る ログ 

39 997У3 77402 2949239. ОА ファ イル カラ МУЗ? 
PUSH АМҮ KEY 


кы у ЖЫ К Еу 

зэ #)\ 

79231 Bb" sak 月 リー リナ コッ ヒ 
FN-77 テ ” ス 。 ヨ ロッ 7 

399 上 トカ 297 リ テ " GET 














下 の プ ログ ラム の 実行 例 | コッ ニチ 9933 Bt`sh リー リナ コッ リヒ FM-77 7°‘ л 3027 
100 “кке кке RANDOMFILE FIELD & L・R SET жж ++ К К ке еее еее 
110 MIDTH 80,20: 0РЕМ "К",#1,*@:ТЕ5Т2";°............... ........9/9 (774% Э ОРЕМ 
120 FOR 1=1 TO 3:PRINT USING"99"U ##";1;:1ЮМРИТ ІМ%(1):МЕХТ: +... 7390392 
150 'FIELD МІ/К SET 
140 FIELD #1,206S КІМІ%,2045 RIN2$,2006S RINS$ 
150 LSET RIN1$= IN$(1):RSET КІМ2%- IN$(2): LSET RIN3š3$=IN$(3) 

160 PUT #1:С10б05Е:;:'+++++++, +++ жааз вв ваза» “ .. !.. г аататаа.».Э7П8Қ%-- カキ コム 4 
170 “туі 

180 РКІМТ"359) 99703 27482 リマ ゴマ リグ "月 777035 トリ 9 ロマ スリ 

190 PRINT" FUSH ANY KEY" 

200 WHILE INKEY#*$="";WEND:PRINT:PRINT 

210 "カコ ミト オオ ナッ "FIELD 

22@ ОРЕМ "К",%1,"0:ТЕ5Т2" 

23 N=LÜF(1): リト ッッ トッ ッッ ッッ トト ッッ ュ ャ と жа жй кгз к СОРТ s 9 8 .....%94цм)/) テー カラ トリ テス 
240 FIELD #1,20AS БІМ1%,20А5 КІМ2%,20А5 RIN3$ 

250 БЕТ #1,М№: ener к а Sra 2 е (ован ад ж フロ 9 ヒ 上“" -35 ЗА 
260 カキ コミ ト 17% FIELD 

27@ PRINT"393 2191737":РКІМТ RIN1$:PRINT RIN2$:PRINT К1М3% 

280 FIELD #1,60ñS RIN$ 

290 БЕТ #1,№: ++... FUE a n als US h K КККК “г. w w saa a ala 2п"Е%-ЛЭ ЗА 
500 РЕІМТ"3"9 thh2p2Uury" БЕТ": РКІМТ RIN$ 

510 


520 





CLOSE 
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1 セク タ に 多く の デー タ を 詰め る 








*1 セクタ は 1 レコ ー ド に 
対応 し て いる が …… 


*※ レ コー ド 番 号 と 
FIELD 文 の 関係 


ラン ダム ファ イル は , 1 セクタ に 1 レコ ー ド 番号 を つけ る の が 原則 
で す が , ひと つの デー タ が 40 バ イト 程度 の 時 , ふつ う の 使 いか た で は 
が 多 が 出し まい ます 。 フロ ウー を 効 率 よく 使 み た め に 。 デー クタ を 
詰め る こと を 考え まし ょ う . フロ ッ ピ ー に 記録 する 真 の レコ ー ド 番号 
(TN) と , 使い 手 が 指示 する レコ ー ド 番号 (PN) は , た と えば 1 セク タ 
に 6 つの デー タ を 詰め る 場合 は 

TN=1 РМ-1-6 TN=2 РМ--7--12 

TN= 3 PN=13—18 4......--.. 
と いう よう に な り ま す . PN か ら TN を 求め る 計算 式 は 

TN= テ (PN 一 1) \DN 十 1 (DN は 1 セク タ に 詰め る デー タ 数 ) 
С о гла: 5. ラン タム ツア か ら フ ロッ ピー へ と アー 
タ を 書 込 む PUT 文 に は この TN を 使い ます . 


も う ひ と つ , FIELD 文 の ほう も 考え な けれ ば いけ ませ ん . レコ ー ド 
: 号 と バッ ファ と の 関係 は , た と えば DN= 6 O x š [š 

レコ ー ド 番号 一 1, 7, 13, 19, …: 左 は し に FIELD を セッ ト 

レコ ー ド 番号 = 2, 8, 14, 20, …: 左 か ら 2 番 目 に ヶ 

レコ ー ド 番号 3, 9, 15, 21, …: 左 か ら 3 番 目 に ヶ 

レコ ー ド 番号 一 6, 12, 18, 24… : 右 は し に FIELD を セッ ト と いう 
よう に し ます . 1 セクタ に お ける デー タ の 位置 を RN と する と , 計算 式 
は 

RN=(PN—1) MOD DN +1 
に な り ま すみ 。 サ ンプ ルプ ログ ラム で は デー タ は 配列 変数 に 入力 し ,。 С 
の 変数 を バッ ファ の SET 文 と 対応 きせ て いま す . た と えば DN=6 の 
と き , レコ ー ド 番号 15 を な ら RN 一 3 に な り , DATS (3) は バッ ファ の 左 
か ら 3 番目 に セッ ト さ れる わけ で す . 

な お , 6 個 分 の デー タ が バッ ファ に 入っ た ら そ こ で PUT し て 書込み 
ます . それ と 同時 に 配列 変数 を 消し て , 前 の デー タ が メモ リ に 残ら な 
いよ うに し て いま す . この 操作 を し な いと , 入力 を 終え た と き , 前 の 
デー タ ガ が 配列 に 残っ た まま PUT さ れる か ら で す . 
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100 '==================== RANDOM FILE жж BLOCK PUT %% === ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
119 ' デー put 9704 

120 CLEAR B99:DEFINT A-7:DN=6:PN=1:BYTE=49:DIM DAT$(DN) 

130 REM 0М№=1®7971/ 7°-9/ 2" ВҮТЕ=17°-#^/ 7077 イト スウ 

140 ОРЕМ "R",#1,"0:BLDCK";:FIELD #1,BYTE А5 D1$,BYTE AS 02%,ВҮТЕ А5 03%,ВҮТЕ 8 D 
4%,ВҮТЕ AS 05%,ВҮТЕ А5 06% 


150 
160 TN=(PN-1)\DN +1:RN=(PN-1)MOD DN +1: ee НУДИТЬ а а セ 79 ナイ / 3029 
170 РКІМТ USING "NÜ.=#R###";PN:INPUT"DATA3 897 ";DAT$ (КМ) * 


180 LSET D1$=DAT$(1) :LSET D2*=DAT*$(2):LSET D3$=DAT*$( さ ):LSET D4$=DAT$(4):LSET 05% 
=DAT$(5):LSET 08%-ПАТ%(6) 

190 IF ЕМ MOD DN=Q THEN PUT #1,TN:ERASE рат: рім DAT$(DN) 

20@ РМ=РМ+1: |ң: 4...“ вазавазаза sss sss ess ュ ェ ル コ ゴート" Л 21° 93 thu 277 

210 PRINT "9 の" カル <・・ SANY KEY 99・・・>E" 

220 YN$=INPUT*(1) 

230 IF YN$="E" OR ҮМ%-"е" THEN PUT #1。TN:CLOSE:END 

240 БОТО 100 


100 '==================== RANDOM FILE *# BLOCK БЕТ %% = ニニ = ニニ ニニ = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
12. %-99 ミル 

120 DEFINT А-1:0М=5:ВҮТЕ=4@:0РЕМ "R",#1,"0:BLDCK" 

130 КЕМ рМ=177974/ 37-9) 727 BYTE=1F`-952 7077 "イト スウ 


140 FIELD #1,DN#BYTE AS 0%8:7ү:ұ::41 140) ДН, ...рҘэ24руғаһ 77у) FIELD (74 

150 L=LDF(-1): s. sasa... .. . “.... ..“....ж.а.ала-а 44974 а-к й%у12799 モト メル 

160 INPUT" ル コー トド "ココ ウリ 4PNi IF РМ-й ТНЕМ ВЕЕР:60Т70 160 

170 TN=(PN-1)\DN+1:RN=(PN-1) MOD DN +1: に ・・・・・・・ ауҙ/ ルコ ー ト "フウ コ "9 ウト (797 747 3279 
180 IF ТМО) THEN ВЕЕР:РБІМТ"?77-9л アリ 2 も フリ 5BHTU 160 

190 БЕТ #1,TN: 5,6,8... Е Е ヨミ コミ 


200 ジテ イ / 77-99 サカス 

210 IF RN=1 THEN PRINT 1ЕҒТ%(0%,ВҮТЕ) ELSE PRINT MID$(D$,(RN-1 ) *HYTE+1 。BYTE) 
220 PRINT "9" J$... 5 人 ANY KEY 177... Е" 

230 YN$=INPUT$(1):IF ҮМ%-"Е" OR YN$="e" THEN END ELSE 160 








Жжжж GET 文 に つい て こう し て , レコ ー ド 番号 の 1 か ら 連 続 し て 記録 きれ た デー タ を 読む 


こと を 考え まし ょ う . サン プル で は 40 バ イト ずつ , 6 個 分 の デー タ が 
入っ て いる の で , FIELD 文 は 240 バ イト に し て いま す (配列 変数 を 使 
う 必 要 は あり ませ ん ). 探し た い レ コー ド 番 号 を 入力 する と , や は り 真 
の レコ ー ド 番号 と , モク タ 内 の 位置 (ラン ダム バッ ファ の 位置 と 1 対 
1 に 対応 ) を 計算 し , 行 番号 210 の よう に 文字 列 関数 を 使っ て 目的 の も 
の を 取出 し て いま す . 

これ ら の サン プル を 中 心 に デー タ の 追加 / 訂 正 プ ログ ラム を 作れ ば 
本 格 的 に 使い こ を せる も の に な り ま す . PUT, GET は セク タ 単 位 の 
操作 で ある こと に 注意 すれ ば , あと は 難し く あ り ま せん . 
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わが 家 の 蔵 書 を 一 覧 表 に 








* 蔵 書 の 内 容 を ファ イル 


化す る 


** ネ 5 つの メニ ュー を 用 意 


潮 フ ァイル 操作 を 伴 な を う プロ グラ ム の 
行 中 に 「BREAK」 を か けた ら , 


か な 


Б CLOSE を し て か ら デ バッ ク を し 


た り , 


朋 開 を する 


私 た ちの 身 の ま わり に は いろ いろ な コレ クシ ョ ン が あり ます . 本 や 
レ に 3 RIKI の Ei ツ I ト ビジ ダ ジ オ ン フ NE 炎 類 や 区 人 性 の アタ NE サリ など 
も コレ クシ ョ ン と 呼べ な いこ と も あり ませ ん . これ ら を ファ イル に し 
まっ て お け ば , どこ に 何 が ある の か , いつ 購入 し た の か な どの さま ぎ 
まな デー タ を 見 る こと が で きる の で , いち いち 探し も の を する 必要 も 
な く , また 品物 に よっ て は 耐用 年 数 が いつ な の か を 知る こと が で きる 
と いっ た こと も 可能 で す . 

ラン ダム ファ イル を 使っ た 例 と し て ,* こ こ で は 本 を 取上げ て み ま し 
た . タイ トル , 著者 名 , 出版 社名 , 内 容 を ど を 記録 し て , 一 覧 表 と し 
て 見 る と と も で きま すし , プリ ント アウ ト も 可能 な も の で す . 


プロ グラ ム の 基本 設計 と し て は 

1 デー タ の 作成 

2 デー タ の 追加 

3 デー タ の 訂正 (内 容 の 画面 出力 を 含む ) 

4 デー タ の プリ ント アウ ト 
の 4 項目 と し ます . デー タ を さら に 有効 に 使う た め に は 

O デ ー タ の 検索 ( 例 : 同一 出版 社 の 本 ご と に 出力 する ) 

〇 デー タ の ソー ト (fJ: 出版 年 度 別に 出力 する ) 

な どの プロ グラ ム を 考え る と よい で し ょ う . これ ら に つい て は , ЖШ 
に その 基本 テク ニッ ク が あり ます か ら , それ を も と に し て 発展 きせ て 


522 ま ЕХЭ 


これ ら を も と に し て , まず メニ ュー 画面 を 作成 し ます . どの 作業 を 
選ぶ の か を INKEY $ で 求め , ここ で は それ を いち ど 数 値 化 し て か ら 
( 行 番号 260), それ ぞ れ の 指定 に 従っ た サブ ルー チン を 呼び , ひと 仕 
事 終 を た ら ま た メニ ュー 画面 に 戻し て いま す ( 行 番号 270 一 280). な 
ж, サブ ルー チン の RETURN 文 は 戻り 先 の 指示 を し な い 書 き 方 と , 
指示 を する 書き 方 が あり , た と えば 「 新 規 作 成 」 に お いて 行 番号 330 を 
「RETURN 150」 と いう よう に 書く こと も で きま す . メニ ュー で 選ん 
だ サブ ルー チン の すべ て を 行 番号 150 に 戻す と , 行 番号 280 は 不 必要 に 
な ゆま 3 
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まま ませ Uh) У" ооз жж 


NI コウ = 2 1-42/94М-Луі) 87%-7 2- チ ョ シャ = ヤス オカ 039909 
3-У17М%уу%1997у9» 4-А44-у” 195229 5-й4296" =548.9. 24 
6- テ イカ =7B@ 円 7ー ま リノ ニー フ フル イニ リド ュ フ ブフ "フカ "7 

8-2% 


725 091% 


リコ" ウ = 3 1-Ж7/94М-04%9)/ АР 2ー チ ョ リャ = ニコ" ミ 7227 

さ ー ジ 9 月) フリ ャ ニ リ リ チョ ウッ ャ 4-4%-У” 29=280 5-й429Е7 -1969.7.30 
6-r4n=700R 7-%у) フー フ カイ ニス” イヒ 9 

8-2% 


72279 リョ カノ オリ カフ ・ オ ー テ "イオ 27469919 


A コウ = 4 1 - ま リノ ダイ トル = ウノ リョ ウリ ッ 2ー す ョ ジャ ニカ 9 19007 

さ ー ジ 9 用 リフ リャ ニ リ ト リー 9959299 4-^\° -0° 29=284 5-й92%6° =550.9. 1 
68-74Л-9808 7-Жу)) 77У)%4:79У77 

8-2 


789%з725% уз97) ФУ9<<М77) 570» 29 くく こす の" ルル ラート ">> マテ" 





全 デ ー タ の プリ ント アウ ト 例 (番号 2 一 4 まで を 指定 し た と き ) 





100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = 9/9") 774% n p/ У“Фдуа =========z=============== 
119 ‘= жж 774054 =ВООК ++ т 
120 “алссссстсшцсшиякпшшшсвпшпвгппгсшисавоввисиспгзпипипслксисспкзпакаспкисяшакказ 
130 DEFINT A-Z:FOR Ізі TO 8:КЕАЮ TITLE$S(I):NEXT ‘нн өлк 3535. 
140 {ご コー ロキ ミニ ニニ ニラ ニコ ンー ニー ーー アン ャ キキ 

150 MIDTH 40,20:CLS:LOCATE 0,2 

160 PRINT" экзема ЕЕЕ ЕЕ ен": РЕІМТ 

170 PRINT" МЕ N U":PRINT 

18@ PRINT" 14:“““.77-9) ууж 9704": РКІМТ 

190 РКІМТ" 2・・・・・・ テ リー タダ / 9 イカ "EPRINT 

200 РКІМТ" 3%::%!.77-9) т4б@4":РЕ1МТ 

210 РКІМТ" 4......77-9) PRINT OUT":PRINT 

220 PRINT" eee 177": РКІМТ 

230 PRINT" +++ ++ +++ + ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ ЗЕ ЕЕ КЕКЕК ":РИ1МТ 

24@ PRINT" ト "/ MENU Э エラ ヒ 上"?2 カ " 


250 MENU$=INKEY$:IF MENU$="" THEN 250 

260 MENU=VAL (MENU$):IF MENU<1 OR MENU)5 THEN 280 

270 ON MENU GOSUB 310,570,620,1160,1520 

280 БОТО 150 -.ы..-....-.....!............1.1.0)а7 ファ キト 9 ナラ MENUA ЕК" 
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* ネ ネネ ※ ネ データ の 新規 作成 デー タ の 新規 作成 で は 

1 ファ イル 名 を 指定 する こと 

2 項目 ご と に 何 文字 分 を 設定 する の か , 左 づ め に する の か 右 づ め に 
する の か な どの フォ ー マ ッ ト を 決め る こと 

з ひと つの デー タ 群 の 書き こみ を 終え た ら , レコ ー ド 番号 に 注意 し 
с, 書き こみ を 続け る か , 終え る か を 決め る こと 

な ど に 注意 し ます . また , INPUT 文 は と くに 重要 で , 通常 の INPUT 

文 に する の か , LINE INPUT 文 に する の か な ど を 考え て お きま す ・ 

本 の タイ トル その 他 に ダブ ルコ ー テ ーション (") や コロ ン (:) な 

ど が つけ られ て いる こと も 考え て , ここ で は すべ て の 入力 文 を LINE 

INPUT 型 に し て いま す . 


ネネ ネネ デー タ の 追加 と つぎ の デー タ の 追加 は , いま まで に も 出 て きた よう に , レコ ー ド 数 
訂正 を まず 求め 。 そこ に 十 1 を し て ゆく だ け の 作業 の ほか は , デー タ の 新 

規 作成 と まっ た く 同 じ で すか ら , 「 デ ー タ の 作成 」 部 分 は 共有 プロ グラ 

ム が 使え ます . し た が っ て この プロ グラ ム で も 作成 部 分 は サブ プル ー チ 

ン 化 ( 行 番号 360 一 540) し て いま す . 

デー タ の 訂正 は すこ し 複雑 に を な り ま す . 訂正 プロ グラ ム は 

〇 書き こま れ た デー タ が どの レコ ー ド 番号 を の か を 使い 手 が 知 っ て い 
る か どう か 

O 〇 ひと つの デー タ 群 の 訂正 の 時 , その デー タ 群 の 一 部 分 を 訂正 で きる 
Келе дере уа 

о 1 回 の 作業 で , 同時 に 複数 の 訂正 が で きる よう に する の か , 1 回 の 
作業 で 1 部 分 だ け の 訂正 に する の か 

な を ど に つい て , あら か じ め ど う 対 応 す る の か を 考え て お か な けれ ば い 

け ま せ 処 対 と こぐ は 

1 レコ ー ド 番号 が 指定 で きる 場合 と で き な い 場合 に 分 けた . 訂正 し 
た い レ コー ド 番 号 が 分 ら な い 時 は , 作成 ず ぎみ の デー タ を 始め か ら 
呼出 し て , 発見 で きた ら 訂正 プロ グラ ム へ 戻る よう に し て いる ( 行 
番号 640・ 行 番号 700・ 行 番号 1010 一 1130) . 

2 デー タ を 部 分 的 に 訂正 で きる よう に し , 1 回 の 作業 で 1 項目 だ け 
を 訂正 する 

と いう 形式 を と っ て いま す . な お ファ イル を 壊さ な いた め に も , な る 

べく 多く の 箇所 に 「 取 消し 」 ル ー チ ン を 入れ て お き з: 
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29@ 
300 
310 
320 
330 
340 
350 
360 
370 
386 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
508 
610 
620 
630 
640 
650 
568 
670 
680 
690 


700 


710 
720 
730 
ы! 
740 
750 


'#============================= | リキ 497U4 = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ コ ニ ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
NE テー クス ウミ 1 カラ М9” 2% 

GOSUB 360 テ "-2 9704 SUB 
RETURN 


жекен 77-7 9764 SUB 
MIDTH 80,20:С15 
GOSUB 1000 "-.-:..е5е-4)-5....шв..в4.....-:-.......0Р Е-5/В 
NUM$=STR$(N):LSET RNUM$=NUM$ 
PRINT "キロ 7 л“ 22° ="; № 
PRINT TITLES (1): "7 ";:11МЕ ІМРОТ;01%:1 5ЕТ КВ$=р1% 
PRINT ТІТІЕФ (2): "2 ";:11МЕ ІМРОТ: 02%: ЗЕТ RN$=D2$ 
PRINT ТІТІЕ% (3); "7 ";:11МЕ INPUT;D3$:LSET RS$=D3$ 
PRINT ТІТІЕФ (4): "7? ";:LINE INPUTID4$:LSET RPB$=D4$ 
РКІМТ ТІТІЕ6 (5): "7 ";:LINE INPUT;D5$:LSET RH$=DS$ 
PRINT TITLE$(6);"? ";:11МЕ INPUT; 06%: 1 5ЕТ КРК$=06% 
РКІМТ TITLES (7): "7 ";:11МЕ INPUTiD7$:LSET КС0%=07% 
PRINT TITLE$(8);"? ";:11МЕ INPUT;D8$:IF 08%="" THEN 08%= "7-7" 
LSET RMEM$=D8$ 
PRINT"DK? 1・・・・9 キ " /3#95 2・・・・ リ ジュ ウリ ョ ウリ 
YN$=INKEY$:iF YN$="" THEN 500 
YN=VAL(YN*) : IF YN<1 OR ҮМ>2 THEN 500 
IF YN=1 THEN РОТФ#1, М: №=№+1:60Т0 38@ '...........+++.')')°57%70 М9 ЕМ) 727Л 


PUT#1,N:CLOSE EE 12775 МЛ 7174 
RETURN 
* ニニ ニニ ニニ ニニ ニコ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 2 74-9 り イ 用 ニニ ニ ェ ニニ ニ と エニ ニニ ビニ ニニ ニニ ニニ ニニ ニニ ニニ エモ と ニニ ニニ ニニ 
ОРЕМ"К",#1,"@:В00К":М=10РЕ(1):М=М+1:С1.05Е 
BOSUB 060 * ュ < テー グ 9714 SUB 
RETURN 
* ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 3 Y"-) 7414 ニニ ニニ ニニ ニニ ニニ エニ ニニ ニニ ニニ エニ ニ エ ニ ニュ ニニ ニ エ ニ ニ と ニニ デ 


WIDTH 80,20:CLS 

PR INT "コル カラ 742: 7°-9/ 74149 у72.%070722799 у74 テテ "キッ スガ?" 

PRINT" 1・・・・ テ "キル 2・・・・ ッテキ ナイ 3 さ ・・・・ ッ トリ リリ ・ リ ュ ウ リョ ウリ 

TEI$=INKEY$:IF TEI$="" THEN 659 

TEI=VAL(TEI$):IF ТЕІ<1 OR TEI>3 THEN 659 

IF TEI=3 THEN CLOSE:RETURN 

8050В 11699 ドド ッッ に に に に に に に noeeeneeeeneeeeeeeeeseseessessHPEN SUB 

MAXNUM=LÜF(1) リド に ッッ ・・ ッ レット ッッ ・ ド に こし しゃ oo err re eeerre eee サイク" イ #07299 モト メル 

IF ТЕ1=2 THEN 1010 に ・ ッ ッッ ッッ ッッ ッッ に し し" と つの "00 ド フ ゴリ ウーフ メイ ナノ テ " 77-921) 74177204 


ааа # 22° ウリ テイ / 7474 

PRINT:INPUT "#071" 22° 29 07У" ";N:IF N<1 OR МОМАХМИМ THEN РКІМТ"А72277 79774 
ッ テ イ 3 99° 27": БОТО 730 

GET#1 4NziPRINT 

GOSUB 940 +... 666. бө. ....37-дыадФу” СИВУ 
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жжжжж プリ ント アウ ト 


この 訂正 ルー チン は また , 記録 ずみ の デー タ を 画面 で 見 て ゆく だ け 
の 作業 に も 使え ます . 具体 的 に は 行 番号 1040 で , デー タ 群 を 3 組 出 力 
(IF I MOD 3 テ 0…… Ал. Ж АДАК りー タ は が 3 6, 
95 の 時 に 表示 を 一 時 停止 する ) し た ら , スペ ー ス バー な ど を 押す 
5, また 次 の デー タ 笑 が 表示 され る わけ で す . こう し て すべ で の デー 
タ を 表示 する と 行 番号 620 の 訂正 プロ グラ ム の 始め に 戻り ます か ら , こ 
こ で 「3」 の 「 取 消し ・ 終 子 」 を 選べ ば デー タ は 町 正 さ れる こと な く , 
また メニ ュー へ べ へ と 戻る わけ で す . 

部 分 の 訂正 は すべ て サブ ルー チン 形式 に し て , 訂正 し た いも の を 番 
号 で 指定 ( 行 番号 760 一 780) し た ら , 指定 の サブ ルー チン を 呼び 出し 
( 行 番号 790) て 訂正 する 方 法 で す . 


デリ ンド アウ トド の プロ グラ ム は それ ほど むず が し く は あり ませ ん . 
デー タ の すべ て を 印字 する の か , 部 分 的 に 印字 する の か だ けが 入力 ル 
ー チ ン に な り 縛 あと ( ほ 指 定 に 従 み だ け * で お な お 固 に 世 Q は 才 べ で の 
デー タ の プリ ント アウ トド ト で と ど , 部 分 の プリ ンド アウ トド ト を 分 けた 書き か た 
に し て いま す が , 同一 の プロ グラ ム で も 可能 で す . た と えば メニ ュー 
に よっ て POUT と いう 変数 は 1 か 2 の どちら か に な り , 1 の と き に 「 す 
べ て の 蔵書 の プリ ント アウ ト 」, 2 の と き は 「 部 分 の 蔵書 の プリ ント ア 
ЕО пос 

IF POUT=1 THEN STAR=1: ЅТР = МАХМОМ 
と いう 文 を 書い て お く こ と で , この の ち に プリ ント アウ ト の サブ ルー 
チン を 呼び 

FOR | 一 STAR TO STP : GET #1, 1 

GOSUB 「 プ リン ト ア ウト 」 

NEXT 1 
と すね ば まい の で お ААО ЕРЛІ ЛЕРДЕ Те рКа 
書い て お きま し た . 

な お , プリ ント アウ ト . を 工夫 し て , 表 形式 に 才 る om つま り 上 部 に 
見 出し を つけ て , 以下 は その 内 容 だ け を 打出 し て ゆく よう に すれ ば , 
より 見 や すく な り ま す の で , 実用 に 際 し て は それ を 考え る と よい で し 
Е2. その と き は 出力 文字 を 右 づ め に する と ま より 見 や すぐ な り ま す . 
PRINT USING 文 で 「&  &」 を 指定 する と 左 づ め に な り ま すか ら , 
別 の 手法 を 考え な けれ ば いけ ませ ん . 
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760 1МРИТ"74ї4994%/9 48027977 サテ チイ リ テ 79°14 Кулу 75 999";TNUM 
778 IF TNUM=999 THEN CLOSE:GOTO 830 「・・・・・ー・・・ テ イセ イノ リラ メー モト 
780 IF ТМИМ<1 DR TNUW>B THEN 780 

790 ON TNUM B0SUB 839,B849,859,869,879,889,899,999 


800 PUT#1,N “.“. ....... .... жа... ...... sa フリ 7404172 Л%#Лї% 

810 РКІМТ"1Л4) ТАҒТАЙ 139872y`2/y' ЕК" УТА": CLOSE:GOTO 630 

820 シテ イ / %/9 7" フフ テキ ニ テイ セイ スル SUB 

830 PRINT TITLE$(1);"? ";:LINE INPUT D1$:LSET RB$=D1$:RETURN 

840 PRINT TITLE$(2);"? ";:LINE INPUT D2$:LSET RN$=D2$:RETURN 

850 PRINT TITLE$(3);"? ";:11МЕ INPUT D3$:LSET RS$=D3$:RETURN 

860 FRINT TITLE$(4);"? ";:LINE INPUT D4$:LSET RP6$=D4$:RETURN 

870 PRINT TITLE$(5);"? ";:11МЕ INPUT D5$:LSET RH$=D5$:RETURN 

880 РКІМТ TITLE$(6);"? ";:11МЕ INPUT D6$:LSET RPR$=D6%:RETURN 

890 РКІМТ ТІТІЕ9(7);"?2 ";:11МЕ INPUT D7$:LSET RCO$=D7$:RETURN 

900 PRINT ТІТІЕ%(8);"? ";:11МЕ INPUT 08% 

91@ IFD8$="" THEN DB%=" リ ト 7 ニ ナッ リョ LSET RMEM$=D8$:RETURN 

920 ' 

930 жекке 7° - 36302" SUB 

940 PRINT USING"N" 232° ウェ =& & 1-%Ж//74М-% & 2-%зор= & 
k";RNUNM$;RB$;RN$ 

950 PRINT USINB"3- リ ュ ウ 7 フリ ャ = ニ & % 4-%%-у"29а% % 5-й9429Е7г% 

k";RS$;RP6$;RH$ 

950 РКІМТ USINB "6- テ イカ =& & 7-#у/ 77у)4-% &";RPR$;R 

С0% 

970 PRINT"B- メ モ ";RMEM$ 

980 RETURN 

990 ' 

1000 жөне 有り "リコ 9 フ メ イ / 7474 

1018 CLS 

1020 FOR Ізі TO MAXNUM:GET#1,I 

1830 BOSUB 940 “ °... .... . а. ааовваововоаваезозвав и" - ЕЗ0" СИВ 

1040 IF І MOD 3=0 THEN 1050 ELSE 1080 '···....37* 092777 4325429 

1050 РКІМТ"Л72279Л77 97492 5 リキ "ミル ナラ ANY KEY PUSH" 

1060 YN$=INKEY$:IF YN$="" THEN 10680 

1070 IF YN$="S" OR YN$="s" THEN CLOSE:GOTO 620 

1080 NEXT I 

1090 PRINT"y*-3ta922" 29). М7217977 71995 Y も 9 イト "ミル ナラ う R Э 42" 

1100 YN$=INKEY$:IF YN$="" THEN 1100 

1110 IF ҮМ%-"Ү" OR YN$="y" THEN CLOSE:GOTO 620 '....,74{4/ лу" 2217 

1120 IF YN$="R" OR YN$="r" THEN 1010 '.........,.,. у“ ул") 724) АЛУ ҰКП 

1130 6070 1090 

1140 ' 

1150 '========================= 4 PRINT OUT ===============================u===m= 


1160 MIDTH 80,25:CLS 

1170 GOSUB 1600 ドド ドド ッッ ッッ ドッ ッッ oe OPEN SUB 
1180 MAXNUN=LOF (1) 

1190 РКІМТ "947° 4#D7292=";MAXNUM:PRINT:CLOSE 

1200 РКІМТ "1...2" 77 PRINT OUT 2・・・ フー ブフ ラノ PRINT OUT 3... 


+y" 
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. 訂 正す る レコ ー ド 番号 が 分 る 
2. 訂 正す る レコ ー ド 番号 が 不明 
3. 取 消し ・ 終 了 








番号 が 見 つか っ 
た ら “S" を 入力 


FOR 1=1 TO レコ ー ド の 最大 数 






訂正 し た い レ コ 
ー ド 番号 を 入力 











(FOR 一 NEXT が 終っ 
た ら , ス イッ チ は 左 へ ) 








どれ を 訂正 する 
か , 番号 で 入力 














な お Ë Ё "> атт ディ テー — ( 詳 % 
較 フ ロー チャ ー ト : プ ログ ラム の 流れ な お, 上 の 図 は 本 プロ グラ ム の 訂正 部 分 の ディ テー ルフ ロー (詳細 
を 図 に 表わし た も の な を フローチャート) で す . プロ グラ ム と 共に 参照 し て くだ さき さい. 











1210 РЕ1ЇМТ"К`“ Т“ "оа" 97" Му" " 
1220 POUT$=INKEY$: IF POUT$="" THEN 1220 

1230 POUT=VAL(POUT$):IF POUT<1 OR POUT>3 THEN 1220 

1240 IF PDUT=3 THEN 1508 ‘トリ ケラ nN MENUA 

1250 GOSUB 1200 UPEN SUB 
1260 ON POUT GOSUB 1300,1350 

1270 CLOSE:GOTO 150 MENUAER E 
1280 “жен 2377) PRINT DUT 


1290 LPRINT БРАСЕФ (30) ; "жекен 7л" Р/ У" буз жө іРБІМТ 
1308 FOR 1=1 ТО МАХМИМ 
1310 BET#1,I:GOSUB 1440 '.........................PRINTOUT SUB 


1320 NEXT I 

1330 RETURN 

1340 ' 

1350 ІМРОТ "УУЛ" 275 ";STAR:IF STAR く 1 ОК STAR>MAXNUN THEN 1350 
1360 INPUT "ナウ ルト フッ マテ" ";STP:IF STP<STAR ОК STP>MAXNUM THEN 1360 
137@ LPRINT ЗРАСЕФ (30); "#жжжжж ОЛГ?) У" ооа жөке ELPRINT 


1580 FOR I=STAR TO STP 

1390 БЕТ#1,1:605ИВ 1440 '.....................рвүмт DUT SUB 
1400 NEXT I 

1410 RETURN 

1420 ' 


1430 “жаа PRINTOUT SUB 
1440 LPRINT STRING$(79,"—") 


1450 LPRINT USINB"N" フ コ "9=& %-1-й2/94%-% & 2-Язу?-і 
k";RNUM$;RB$;RN$ 

1469 LPRINT USINB"3- リ コッ "フッ ャ =& & 4-^"ー ジ 2 ス 9=& 0% 5-ns39t"= 

& k";RS$;RPG$;RH$ 

1479 LPRINT USINB"6- テ イカ =& & 7-йу/ 77у%4ғ% &";RPR$ 

;RCU$ 


1480 LPRINT"B- メ モ ";RMEM$ 
1499 RETURN 
1500 ' 


1510 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 5 リュ ウリ ョ ウニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニテ ニニ 
1520 CLOSE:MIDTH 40,20:LOCATE 10,10:РКІМТ" THE END":END 

1530 (шезжичапазаисикаспзсшилжиЯсассавызкышшысстевікисесссссикагсишиясигсипддашЕ 
1540 

1550 “жака DATA 

1560 DATA "1 #2/ 748,2 チョ タメ イリ "3 узеле оор", "4 ле 0" 29 


1570 DATA "5 4797 926°", “ó 743","7 Жу) 7° URA", "В 2Ғ(150Ғ97474) 


1580 

1590 “жиа ОРЕМ & FIELD SUB 

1600 ОРЕМ "К", #1, "0: ВООК" 

1610 FIELD #1,5А5 КМИМ%,2045 RB$。15aS КМ$,15А5 Ю5%,5А5 RPG%,10AS RH$,7AS КРК$, 10 
АВ ЕС0%,150А5 RMEM$ 

1620 RETURN 
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ラン ダム ファ イル と デー タ の 削除 


* 作 成 ず み の フ ァイル か э ファ イル に デー タ を 書き こみ , 訂正 を する と き に は レコ ー ド 番号 を 
ら , デー タ の 一 部 を 削除 指定 し て , 直接 変更 で きる の が ラン ダム ファ イル の 利点 で す . いっ ぱ ぽ 
する う 実 際 の デー タ を 扱う 時 に , 作成 ず すみ の デー タ の 中 か ら 不 要 な も の を 
消し た いこ と が あり ます . た と えば 
レコ ー ド 番号 1 デー タ A 
レコ ー ド 番号 一 2 デー タ B 
レコ ー ド 番号 一 3 デー タ C 
は すでに 作成 ずみ で , この 中 か ら レ コー ド 番 号 の 2 番 だ け を 削除 し て 
レコ ー ド 番号 1 УА 
レコ ー ド 番号 = 2 デー タ C 
КҮЙ う フッ ア イレ (0 る に は どう БЕЛА ОД Э У 











ネ ※* ネ 本 別に デー タ を 入れれ ひと つの 方 法 は こ うぅ で す . 削除 し た い 番 号 を S と し て , 入力 プ ブログ 
ば 処理 は や さ し い が …… ラム で 求め (5—2), まず 記録 され て いる レコ ー ド 番号 の 最大 数 を 求 
め ま す . LOF 関 数 に より , これ を MAXN と する と いま の 場合 MAXN 
デー デー3 に な り ま す . いっ ぽう デー タ を 配列 D(I) に 代入 する こと を 考え 
て , これ も あら か じ め D(1) = А, D(2)=B, D(3) =C と いう 処理 を 
し て お きま す . これ ら の 準備 が 終っ た ら 
FOR 1=5 TO MAXN 一 1 (この 場合 2TO2) 
D (I) =D (1+1) (D(2)= D (3) =€ なる) 
NEXT I 
を 実行 する と , 結果 的 に は D(1)=A, D(2)=C, D(3) 
+. も と の ファ イル を KILL し, 再度 OPEN 命令 を し て 
FOR І-1 ТО MAXN 一 1 (I は 1 か ら 2 ま で ) 
PUT 「 デ ー タ 」 (データ を ファ イル に 書き こわ ) 
NEXT 1 
と すれ ば , デー タ 数 が ひと つ 減 り , し か も レコ ー ド 番号 も ひと つつ 減っ 
た も の が 作成 され る わけ で す . 
デー タ 数 が 少な いと き は この よう に デー タ を 一 度 配 列 へ と 送り , 改 
め て 記録 し を お すこ と が 可能 で す . し か し , デー タ 数 が 多い 時 は , コ 
ンピュータ が 用 意 で きる 配列 に 限度 が ある た め , 実用 に な り ま せん . 





ネネ ポス 2 つの ファ イル を 
用 意 


※ ラ ンダ ム フ ァ イル で は , た と えば 書 
きこ み の 時 に PUT 韻 1 と し て , レコ ー 
ド 番 号 を 省略 する 使い か た が 許さ れる . 
し か し レコ ー ド 番号 を 指定 し た ほう が , 
プロ グラ ミン グ が 明快 に な る の で , 習 
慣 と し て 身 に つけ た い 


ネネ ネネ 削除 プロ グラ ム 
の 実例 を 考え る 
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も う ひ と つの 方 法 は , ファ イル を 2 つ 用 意 し て デー タ を いち ど 別 の 
ファ イル に 書き こむ も の で す . この 時 も デー タ は 最初 


レコ ー ド 番号 1 мд ОЛА 
レコ ー ド 番号 一 2 の (の 
レコ ー ド 番号 一 3 x CÇ 


に な り , これ が 別 の ファ イル に 送ら れ ま す . も と の ファ イル を 消し 
FOR І-1 TO MAXN 一 1 
PUT 「 デ ー タ 」 (ファ イル に デー タ を 書き こむ ) 

NEXT 1 
と いう プロ グラ ム に よっ て , も うい ち ど 新 し く < 書き こみ を する こと で 
削除 後 の デ ゲー タ は レコ ー ド 番号 が 1 と 2 に な り ま す . この 方 法 を 使え 
ば , デー タ を 配列 に 入れ る こと な く , デー タ の 一 部 を 削除 し て , し か 
も レコ ー ド 番号 は ひと つ 減 っ た も の が 作成 され ます . この 方 法 は ファ 
イル を 2 用意 し な けれ ば いけ な いこ と , また , デー タ を 転送 し て 書 
きこ む の で , 読出 し の 回 数 が 多く な る ほど 時 間 が か か る こと が 欠点 に 
な り ま す が , ディ スケ ッ ト に 納め られ る 範囲 の デー タ 数 な ら , コン ピ 
ュー タ そ の も の の メモ リ に は 関係 し な い の で 多量 の デー タ で あっ て も 
削除 が 可能 で す . この 方 法 を も う 一 度 整 理 し まし ょ う . 

1 ファ イル を 2 つつ 用 意 す る 
削除 する レコ ー ド 番号 を 求め る 
も と の ファ イル か ら 削 除 指定 の も の を 探し , デー タ を 詰め る 
別 の ファ イル に デー タ を 送る 
も と の ファ イル か ら デ ー タ を すべて 消し 去る 
別 の ファ イル か ら デ ー タ を 取出 し , レコ ー ド 番号 を ひと つ だ け 減 
らし て , も と の ファ 有 ル に 書き こむ 

7 別 の ファ イル の デー タ を すべ て 消し 去る 
と いう 作業 に より , デー タ の 一 部 が 削除 され る わけ で す . 


ол 心 〇 の м 


са, 今 の 話 を も ど に , 実際 の プロ グラ ム で 考え て み ま し ょ う . サ 
ンプ ル は と りあ え ず 住所 録 と いう こと で , 氏名 ・ 住 所 ・ 電 話 番 号 の デ 
ー タ を ひと まとめ に し て 1 レコ ー ド に 扱う こと に し ます . デー タ の 新 
規 作成 は 。 プロ グラ ム 中 の DATA 文 で 作る こと に し まし ょ う . ここ で 
は デー タ の 追加 と 削除 を 使い 手 が コ ント ロー ル し ます . 

この プロ グラ ム は デー タ の 新規 作成 ・ 追 加 ・ 削 除 の 3 つの メニ ュー 
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*****GET#1, РОТ 
井 2 で デー タ を 転送 


100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニ = ニ = ニ ラリ タダ " / 27748 ## 77-9) 9WW4(hk?)u "a ## =к==л==шшпат 


14” 
120 ' 
1309 ' 


140 'z==================z=========z==============================ununuusu 
150 DEFINT А-2 

208 MIDTH 40,20:С15 

210 。 PRINT"1・・・ リ リキ 9714": РКІМТ" 2+. 94": РКІМТ" 3 «970° з" 
220 РКІМТІРКІМТ:ІМРИТ"К/9 ІЗЕ 21)"; МЕМО 

230 ON MENU GOSUB 300, 400, 200 

240 BHTO 200 


250 


310 N=1 





260 “кке ке нн 1 リリ キ 97704 + ЕЕЕ ЕК КН нинин 
300 GOSUB 1000 ..................................[!РЕҢ #1 k FIELD ІШІН 


320 READ D1$:IF D1$="END" THEN CLOSE:RETURN 

330 READ D2$:READ 03% 

349 GOSUB 1200 '............ еа ¿saa masa asus... | ЧЕЛ 
350 РИТ#1,М:М=М+1:60Т0 320 

360 ж ЕУ ЕЕ ЕЕЕ ЕЕЕ 2 947 э ЕЕЕ ЕЕ к екн кек к 
400 MIDTH 80,25:CLS | 
С АБА ОРЕМ #1 & RIMLD 


に よっ て 構成 され て いま す . 新規 作成 は DATA 文 を 読む だ け で 終る 
うに な っ て いま すし , 追加 は ファ イル の 最大 数 を 求め , Z IC + 1 # 
uz bg 2 2 Де zs АЗ? 

つぎ に デー タ の 削除 を 説明 し まし ょ う . 

まず ファ イル は 2 つつ 必要 で すか ら , F-BASIC を 起動 する と き , “Ном 
many files” の 入力 で ,「2」 を 入力 し ます . М оиа — Feria 
SAKUNUM と し ( 行 番号 640), この 番号 が ファ イル の 最大 数 で な け h 
ば (途中 に は さま れ た デー タ な ら ) 行 番号 680 一 700 で , 削除 し た いも 
の の あと に , 削除 し た い 番 号 以降 の も の を 順に 入れ て デー タ p O E 
ずつ 詰め ます . 

デー タ を 詰め る だ け な ら , ファ イル 番号 は 提 1 だ け を 使え ば い 避 欄 
け で , GET#1, IT 十 1 :PUT#1, 1 で 実現 で きま す . о = ШЕШ 
ファ イル を 開き , も と の デー タ の レコ ー ド 番号 より ひと つ 少 な WI 1 
ー ド 番号 で # せ 2 へ と 転送 し ます ( 行 番号 710 一 760). これ で 元 の # 
か ら , レコ ー ド 番号 が ひと つ だ け 少 な い , 削除 ずみ の デー タ が 拓男 
収め られ まし た . つぎ は も と の ファ イル を すべ て 消し まっ で (M 
780), その あと に 后 2 か ら 韻 1 へ と 転送 し ます . 





**#** HOWMANY FILES 77 <<2>> Э オス 











画面 例 b 


(次 ペー ジ へ ) 
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L Bp рЫ この の アリ の 1 コス 55 05-251-0050 
ЛДУ 354 777772 жов" 1973-4-55 045-001-1050 
ЖОРО ЕК ауа #%%°П>1Л1КҺ`°1'6-7-8 01-042-9999 
4797 аза 9497905 № УЯа93-1 0422-0901 -0909 
«ЭКО ЕР. я ыза Туды ду + 
Am... E My... す オ スリ 
ТОЛ 92% ЗУРА 05-251-0050 
22-747” 294% ЛІЛ792 ЖУМ" 4а93-4-5 045-801-1050 
27497 3932 サイ マリ ミ トリ キョ ウ さ ー1 0422-001-0909 


TIE CI JU 23599 59259 1 








デー タ が 削除 され , 指定 の も の が も と の ファ イル か ら 消 えて レコ ー 
ド 番号 も お な を なじ く ひと つつ 減っ て いる こと を , 上 の 画面 ハー ドコ ピー の 
サン プル で 見 て くだ さい . 

な お, 削除 し た いも の が 最大 レコ ー ド 番号 に な る と き は 行 番号 800 一 
830 な どの よう に FOR 一 NEXT は 使え ませ ん の で , 転送 ルー チン へ 直 
接 飛 ば し ます ( 行 番号 660)0. この プロ グラ ム で は , も と の ファ イル は 
“RFSAMPLE”, 仮 の 形 に し て 転送 すか る ファ イル は “REDUMMY" 
975 








420 MAXNUM=LOF 
458 680508 1400 
440 N=MAXNUM+1 


450 LINE INPUT"f?I? “;01% 
469 LINE 1МРИТ"у*“ 27737 ";02% 
479 LINE INPUT" テ * フ 792 03% 
280 БІСІВ 1208 nana аеро ea ele ome; ss sui СЕТ СИВ 


490 PRINT "コル テ " 


500 YN$=INPUT$ (1) 

510 IF ҮМ%-"Т" OR YN$="t" OR ҮМ$="Л" THEN 450 

520 IF YN$="C" OR YN$="c" OR ҮМ%-"У" THEN PUT #1,М№: №М№+1: ВОТО 450 
550 IF YN$="E" OR ҮМ$="е" DR YN$="4" THEN PUT #1,N:CLOSE:RETURN 


54@ GOTO 490 
5580 ' 


560 жЕ ЕЕЕ ЕЕЕ ЕЕЕ Š 973 ЕЕЕ ЕЕЕ #4 # +++ + +++ 
5@@ MIDTH 80,25:CLS 


618 6050В 1000 


820 МАХМИМ-(0Ғ(1) 


638 BOSUB 1400 


649 INPUT"$97u`a 974 テコ ウラ トウ" ";SAKUNUM 
650 IF SAKUNUM<1 OR SAKUNUM>MAXNUM THEN 640 
560 IF SAKUNUM=MAXNUM THEN 710 「・・ ッ ッッ ッッッ ッッ ッッ ッッ ッッ = サイ コノ テー グ / {7у°з 


人 1) イレ コート "スワ ウラ モト メル 
ヒョウ リッ "SUB 


ヒト リフ ブッ 37)» АҒА Т УЛАС 49)... Ë 3 オス" 


ecceUPEN#1 & FIELD SUB 


. 


クコ ョ ウリ SUB 
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67 '--------- 97-97 th 9 メル 
689 FOR I=SAKUNUN ТО MAXNUM-1 
690 ВбЕТ#1,1+1:РИТ#1‚1 


700 NEXT I 
11® RBHSHB 1188 '55»зе45г946» д» ааа ее Q "ua é ñi. OPEN #2 & FIELD SUB 
22637--------- 823 77-9 テッ フツ ソウ 


730 FOR I=1 TO MAXNUM-1 
740 GET#1,1I:D1$=DAT1$:D2$=DAT2$:D3$6$=DAT3$ 
750 GOSUB 1300:РИТ%2,1 


760 NEXT 
770 ' 

780 CLOSE#1:KILL"0:RFSAMPLE":8OSUB 1000 )........4Ұ 7647" -99 72 
790 '--------- %14 77-9 テッ リウ 


B99 FOR 1=1 TO МАХМОМ-1 

810 BET#2,1I:D1%*=DT1$%$:D2$=DT2%$;:D3%=DT3$ 

820 6050В 1200:PUT#1,1 

830 NEXT 

840 СІ05ЕЯ2: КІП "0: ЕҒШИММҮ" 5..2..................8:-) 727483 ул 
85% ” 

860 PRINT" オ ワリ ・・・・E "'Ч%°7%....С 3 42 2%:ҮМ%-ІМРИТ8 (1) 

870 IF YN$="E" OR YN$="e" OR YN$=" イ " THEN CLOSE:RETURN 
880 IF ҮМ$="С" OR YN$="c" OR YN$="V" THEN 620 ELSE 860 
890 ' 

9@@ "= ニニ ニニ = ニニ ニニ === ニ = ОРЕМ & FIELD SUB = ニニ = ニニ = ニニ ェ ニニ ェ ュ ニ ニニ ニニ ニュ ニ 
1000 OPEN"R",#1,"@:RFSAMPLE" 

1010 ҒІЕ(0%1,20А5 DAT1%,30AS DAT2$,15AS DAT3$ 

1020 RETURN 

1030 ' 

1100 OPEN"R",#2,"0@:RFDUMMY" 

1110 FIELD #2,20 А5 DT1$,3@AS DT2$,1506S DT3$ 

1120 RETURN 


1130 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ LSET SUB == ニ ミニ = ニュ ニ ニニ ニニ ニニ ニニ コ ニ ニ ニ ェ ニニ ニニ ニ 

1200 LSET DaT1$=D1$:LSET DAT2$=D2$:LSET DAT3$=03$』RETURN 

121@ 

1300 LSET DT1$=D1$:LSET DT2$=D2$:LSET DT3$=D3$: 人 RN 

1310 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ DATA ヒョウ ッ " SUB ========= ニ と ぼら ご 

1400 FOR 1-1 TO MAXNUM:BET#1 1 

1410 PRINT USINBG"### & t & 
k";I;DAT1$;DAT2$;DAT3$ 

1420 NEXT 

1430 RETURN 

1440 ' 


1450 “** DATA 

1460 DATA 97Л оуу“, ミト 2 79" 2`1-2-3,03-251-0050 
1470 DATA 7797 5747,73" 77 &2K`493-4-5,045-001-1050 
1460 БАТА キ 9 チ ミト "リコ 。 すま" ロウ オオ ト * オリ 6-7- 日 91-942-9999 
1490 DATA キ 9" ヨウコ, サイ 9 マッ ミト" リ チ ョ ウ 3-1 9422-991-9999 
1599 DATA END 














グラ フフ ルッ クス を 


жулду аа УЕ 
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グラ フィ ッ ク 座 標 と その 処理 








*FM-77 の 座標 と 一 般 
的 な 座標 


** 原点 の 設定 方 法 


F-BASIC の グラ フィ ッ ク 座 標 は 多く の パー ソナ ルコ ンピュータ と 同 
様 に , 左上 を 原点 (ヨコ …… Х-0, タテ …… Yー0) と し , 左 の 図 の 
よう に プラ ス 方 向 の み に 設 定 さ れ て いま す . いっ ぱ ぽう 私 た ち が 数 学 で 
習っ て きた 平面 座標 は 中 心 に 原点 が あり , プラ ス と マイ ナス の 双方 へ 
аро сЕ. 

画面 に きま ざま な 模様 を 書い た りす る グラ フィ ックス で は 座標 の 中 
心 を どこ に 設定 し て も か まい ませ ん . し か し 数 学 的 を テー マ を 扱う と 
き な ど は , 画面 の 中 心 に 原点 を 設定 し た ほう が 実際 の 計算 な ど と 一 致 
する こと も あっ て , 理解 し や すく な り ま す . この た め の 処 理 方 法 は い 
くつ か あり ます が , これ 以降 の グラ フィ ックス で は 以下 の ルー ル を 適 
用 し ます . 

O 入 力 する 数 値 を な ど は 画面 の 中 心 を 原点 と する 一 般 的 な 座標 と する 

O 入 力 後 の , 点 の 移動 や 回 転 変数 を ども 同じ 考え で 処理 する 

O 画 面 に 出力 する ルー チン だ け を 座標 変換 す る 

つま り コ ンピュータ が 計算 を する 数 値 そ の も の は あく まで も 数 学 的 
に 取扱 い , 画面 出力 の と きだ け は 変換 し て や り ま す . この 方 式 の 利点 
は , グラ フィ ックス の 座標 変換 な どの 本 質 的 な 部 分 の 計算 は あく まで 
も 数 学 的 に 正しい 結果 に を る こと が 挙げ られ ます . 欠点 と し て は プロ 
グラ ム が 長く な る こと , 画面 出力 用 の 変数 が 増え る た め に 整理 し に く < 
く な る こと が 挙げ られ ます . し か し , 計算 は 計算 , 表示 は 表示 と いう 
よう に , ハッ キリ と 分 は だ は の が 所 知 が 200R D RD L 70527 
する と きも 楽 と いえ る で し ょ う . 


原点 を (X0, YO) と し た と き , 入力 され た X 点 , Y 点 を 画面 の どこ 
に 出力 すれ ば よい か と いう と , その 式 は 

ヨコ 位置 (X 方 向 ) X0 十 X 

タテ 位置 (Y 方 向 ) YO 一 Y 

に な り ま す . F-BASIC と 一 般 座標 の 決定 的 な 違い は , タテ 方 向 で , 
方 向 の 極性 が 反転 し て マイ ナス に な り ま す . また , タテ 方 向 の 寸法 は 
0.45 一 0.4 倍 と , 縮め な いと 見 た 目 の 寸 法 が 狂い ます . 縮 率 を 手持 ちの 
ディ スプ レイ に 合わ せま し ょ う . 








95 


サン プル は 5 つの 点 を 結ぶ 図形 を 描き , 指定 の 分 だ け 図 形 を 移動 さ 
せる も の で す . 点 を 結ぶ 図形 で 注意 する こと は , 書き 始め (始点 ) か 
ら ス ター ト し て , つぎ つぎ と 点 を 結ん だ と き , さい ご の 点 (終点 ) を 
始点 と 一 致 さ せる , と いう こと で す . この 処理 を し な いと 閉じ た 図形 
に な り ま せん . ここ で は 配列 変数 を ひと つ , 余計 に 設計 し , 行 番号 200 


※F-BASIC の 縮 率 は 0.4495. CIRC 
LE 文 で 正 円 を 描き , ディ スプ レイ の で 終点 (X (6), Y (6)) に X (1), Y(1) を 代入 し て いま す . また , LINE 


垂直 振幅 調整 ツマ ミ で 正 円 に 見 える 
よう に し た ら , その 後 の 縮 率 係数 も 


0.4495 (20.45) 1:3 2 


文 を サブ ルー チン 化し て いる の で , サブ ルー チン に 引渡 す 変 数 を あら 
か じ め 用 意 し ます ( 行 番号 250, 370). 





110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
359 
360 
370 
38@ 
39@ 
400 
410 
420 
430 
440 





“'=============== ズ " ガ イノ ブー イト ж*5°%/ 433 522“ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
DIN X(6),Y(6),XM(6),YM(6) 

MIDTH B9,.25:CLS 
5Ү-.43:Х0-300:Ү0-100:7Х5-0:7ХЕ-000:7Ү5-0:7ҮЕ-199 


REM #SY=23999 Х0,Үй-77272 1Х5,1ХЕ-ХУ77:1Ү5,1ҮЕ-Үз” 7/7) 
FOR 1-1 TO 5 

READ Х(1),Ү(1) 

DATA 10,10, 20,-30, 70,70, 0,120, -50,-20, 
МЕХТ 1 


Х(&)=Й(1):Ү(&)=ү(1) енене елат АК 4992 #09 49990 
“-------------------- モト ノ 2774) Баду" ---------------------- 
LINE(ZXS,Y0)-(ZXE,Y0),PSET,5:LINE(X0,ZYS)-(X0,ZYE),PSET,5 
С=7 'эп4 407° エ カ 7 
FOR I=1 TO 5 
XS=X0@+X(I):YS=Y0-Y(I)*SY:XE=X0+X(I+1):YE=Y0-Y(I+1)*SY 
6OSUB 430 t... ае в аө ё еэ эке ...... LINE SUB 


---------------------- АМФ 219987 ------------------------ 
LOCATE 0,0:ІМРИТ"хЛ 479 АК 99 も 2 カ "; ХМ 
LOCATE @,1:INPUT"yñ 42 イト "99 も マス 2 ";YM 
FOR 1=1 TO 6 
XM(I)=X(I)+XM:YM(I)=Y(I)+YM °... 4792123 771) 


------------------ イト "9 2774) 上 ヨウ サド ----------------------- 
C=6 「 キ イロ イ イロ ニス メル 


FOR I=1 TO 5 

Х6-Х0%ХМ(1):Ү5-ҮЙ-ҮМ(І) *SY:XE=X9+XM(I+1) :YE=Y9-YH(I+1) *SY 
BOSUR 430 "оеагаев_вевзезәввввзавв ге} [NE SUB 

NEXT I 

END 

“көже LINE SUB жж 

LINE(XS,YS)-(XE,YE),PSET,C 


RETURN 
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三角 関数 と 円 の 描き か た 








* 応用 範囲 の 広い 三角 関数 は 古く は 土地 測量 な どか ら 起 っ た 考え 方 で , 辺 の 長 さ と , 
SIN, COS それ が 作る 角度 な ど を 知る こと に より , 他 の 辺 の 長 さ を 求め た りす る 


方 法 と し て も 知ら れ て いま す . また 物体 や 電気 の 振動 を ど と も 関係 の 
ある も の で 広く 使わ れ ま す . 

コン ピュ ー タ に お ける 三角 関数 も , 数 学 ・ 物 理 ・ 電 気 の 分 野 を ど で 
応用 きれ る ほか , グラ フィ ックス と も 深い 関係 に あり ます . ここ で は 
まず , サイ ン (SIN), コサイン (COS) と ラジ アン 値 , 角度 の 関係, 
それ ら を も と に し て , 角度 を 入力 する と 三角 関数 の 値 を 画面 に 点 と し 
て それ を 出力 する プロ グラ ム を 作り , 動か し な が ら 理解 し て ゆき まし 
まう 。 ザ ンプ ル を 見 で くだ さい . 





120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
520 
330 
340 
550 
360 
370 





110 ' 


'em============ 15717 7227 СІМ С05 / 2° Ds=hk = ニニ ニニ ニニ ミニ ミニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


PI=3.14159265#8:DEGRAD=PI/180:X0=200:Y0=100 

WIDTH 80,25:CLS 

"マエ リョ リ 

LOCATE 0,24: СОСОК 5: РКІМТ"-- PLHT SIN "iiEOLOR о: РКІМТ"-- РОТ СОЗ" 


COLOR 7 
LINE(X08,Y0-100)-(X0,Y0+100),PSET,7 '...‹.............. үн 
LINE(X8-50,Y0)-(X0+360,Y0),PSET,7 '......... „а.с Ж Xu" 7 
219087 
СОСАТЕ @,@:INPUT"h?) h" "; рЕб: КАр= рЕбжрЕБКАЮ 
LOCATE 0,1: РЕІМТ "52° 77+ =" ; КАЙ 
LOCATE 0,2:РКІМТ USINB"SIN=#.## С05=#. ##"; 5ІМ(КАр) ; СО5 (КАР) 
GOSUE 260: 60Т0 200 
ンジ だ つこ ニニ ニニ ー ジ Р5ЕТ SUB こ コ テス ニラ ニー ニニ ニニ ニニ ご ュー 
X=X9+DEBiY1=Y9-79#*SIN(RAD) ド ・・・・・・・・ ッ ッッ 「・PLUT ス ルイ チ / イサ (IN) 
Ү2-Ү0-70%С05 (КАП) '.............Р10Тл%& 177719: (CHS ) 
ЛІ も 20PBE 
FOR 1=1 ТО 49 
PRESET(X,Y1):PRESET(X,Y2):FOR T=@ ТО 100: МЕХТ 
PSET(X,Y1,5):PSET(X,Y2,6):IF I MOD 5=@ THEN ВЕЕР 
NEXT 1 
LOCATE 0,3:РКІМТ"ОК? PUSH АМҮ KEY" 
MHILE INKEY*$=" " : МЕМО 
РОК E=@ ТО З: ОСАТЕ @,Е:РКІМТ ЅРАСЕ$Ф (25); : МЕХТ 「・・・・・ モ ジー ヨウ キョ 
RETURN 











97 


ネネ 三角 関数 を プロット この プロ グラ ム で は , まず 原点 に な る 点 を X0 王 200, Ү0-10012% 
し て ゆく 定 し , そこ か ら X 軸 ・Y 軸 の 2 本 を 作り ます (414-5170, 180). 角度 


を 入力 する と , それ が 何 ラ ジア ン に な る か を 計算 させ ( 行 番号 200), 
その SIN 値 ・COS 値 を 出力 し ます ( 行 番号 220). この あと に プロ ッ ト 
を する サブ ルー チン を 呼ん で いま す が , PSET 文 は 々 と Y の 2 つの 位 
= を 指定 する の で , 多少 の 工夫 を し な けれ ば いけ ませ ん . まず 双方 向 
で す が , 角度 は 一 般 に 0 一 360* の 間 の 値 を と り ま す . し た が っ て 1" に 
つき 方向 は 1 ドッ ト 分 で 対応 きせ れ ば いい で し ょ う . た と えば 90* と 
いう 入力 が あっ た 時 は , XX 方向 は X0 十 90 王 200 十 90 ニ 290 に な り ま す . 
いっ ぱ ぽう, Y 方 向 は SIN, COS の 値 に を る の で す が , 双方 と も 角度 
が た と えー100'" で あっ て も 600" で あっ て も , 最大 で 1, 最小 で 一 1 に 
る SIN の 例 し か な り ま せん . し た が っ て 結果 を 50 倍 一 100 倍 し て や ら な いと PSET 
指定 で き な い の で す . この プロ グラ ム で は 70 倍 し て いま すか ら , 最大 
5<“Ү0--70-170, 最小 で Y0 一 70 一 30 と いう 値 に なり ます ( 行 番号 260, 
270). なお, ここ で は ディ スプ レイ の タテ 方 向 の 補正 値 は 使っ て いま 
せん (本 質 的 に 不要 で す ). 
この プロ グラ ム で は PSET を 何 回 で も 重ね て で きる よう に угуз い 
る の で 。 入力 角度 に し た が っ て どこ に 点 が 打 た れる か が よく 分 る よう 
әм СИЯ (Ж) を きき で いま す 。 < каттик ОО 
で す . PSET と PRESET を くり 返し , チカ チカ と 光ら せ て か ら , 正 
式 に 点灯 させ る と 共に , BEEP 音 ぎ で それ を 知ら せる よう に し まし た . 
入力 を 何 回 も くり 返す と , や が て サイ ン 濾 形 と コサイン 波形 に 近づい 
ens as z. 











12 
SIN, COS 100 “ох SIN CÜS ト エフ ЖҰЖ 


を 使っ て 110 РІ-3.14159:Х0-520:ҮЙ-100:5Ү-.45 
円 を 描く 120 MIDTH B9,25:CLS 


ЖЕР? 130” 
ム 140 INPUT" N24 "R 
159 


150 FOR RAD=9 TO 2xPI STEP PI/360 
170 X=R*COS(RAD):Y=R*SIN(RAD) 





180 X=X0@+X:Y=Y0-Y*SY 

190 LINE(X9.Y@)-(X,Y) ‚РЕТ, 5 
200 (ІМЕ(Х0,Ү0)-(Х,Ү),РКЕБЕТ 
210 Р5ЕТ(Х,Ү,7): エフ 199 ІЛ? 
220 МЕХТ 

250 ЕМ) 








АНЯН< 71122 A 0) В ОЛІ 
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多角 形 の 描き か た 








* 円 は 多角 形 ? 


A) 


前 の ペー ジ の 円 の 描き 方 の プロ グラ ム を 見 て も 分 る よう に , 円 の 半 
径 を R と し た と き , そこ か ら 左 まわ り に ある 角度 す だけ 移動 し た 円 周 
上 の 点 は 

X= RX cos (d) Y=RXsin (а) 

に な り ま す . 角度 を 小さ くし て 移動 する と , 点 の 軌跡 が 円 に な る わけ 
で す が, 円 周 上 の 点 を , た と えば 120" ス テッ プ に する と , 下 の 図 の A 
の よう に , 正三 角 の 頂点 を 求め る こと が で きま す . この 頂点 を 結べ ば 
正三 角形 が 描け ます が , 図 で も 分 る よう に 左 に 傾い た も の に な り ま す . 

いっ ぱ ぽう 図 B の よう に , 円 の 中 心から 一 辺 の 長 さ 選 , 角度 は 0* の 位 
置 を も と め る と , そこ は 点 色 に な り ま す . も う ひ と つ , 円 の 中 心から 
120" の 点 の 位置 を 求め る と , それ は ② の 点 到 に な り ま すし , 240* の 点 
の 位置 は ③ の 点 包 に な り ま す . こう すれ ば 3 つの 線 分 を 求め る こと が 
で きる の で す が , この まま で は 三角 形 に な り ま せん . 

る BER EE 

① の 線 分 を まず 描く , つぎ に ①) の E を 線 の 描き は じ め と し て ② の 線 

分 を 描く , その つぎ に ② の E を 線 の 描き は じ め と し て ③ を 描く ……・ 
どい う よ う に ずれ ば 見 友 れ た 形 の 三角 形 に なり ま す 。 

右 ペ ー ジ の プロ グラ ム は こう し て 多角 形 を 描く も の で , 行 番号 230 で , 
CONNECT 命 令 で 線 分 を 描い た ら , 行 番号 240 で スタ ー ト 座標 値 (X 
S, YS) を エン ド 座 標 に 変 を て いま す . 


B) B”) 











3° É 


〇 m 








ФЕ 
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ЛЕУ 379100 
АА АМУ KEY HIT ' 


ë 
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多角 形 プ ログ ラム の 実行 例 b 


100 "жекежеке アグ エフ ラル 9 リノ ナ 用 "サテ" МЛ2Л4АЭ 07 ЖЕЕ ЗЕ ++ 
110 『 

120 ON ERROR БОТО 330 “+... еен エラ ー 293% 

130 WIDTH 80,25 

140 PI=3.14159:5Y=.43 

1598 217047 

150 CLS:LOCATE 19.9:INPUT" ナ フカ 77 イ 3 92022) ";М7 

178 IF М7<3 THEN ВЕЕР: БОТО 160 

180 LOCATE 50,0: ІМРОТ"^2/ Yh ° (50-150) "; НЕМ 

190 ‘977713 ІЖ? 

200 Х5=250:Ү5=190:С15 ドド ッッ ッッ トッ ッッ し ッッ ッッ ““Х5,ҮбшуізЛ Әт) 
210 FOR RAD=9 TO 2#PI+.1 STEP (2жРІ)/М) 

22@ ХЕ= Х5+НЕМ#С05 (КАЮ) : ҮЕ=ҮЅ-НЕМ#5ІМ(КАр) #5Y 

2350 СОММЕСТ(Х5,ҰҮ5)-(ХЕ,ҮЕ),6 74427079 027 

240 XS=XE:YS=YE ドッ ッッ ッッ し ッッ し し し し し し .““а)Й%йи2) 499 ЛіІ 
250 NEXT КАП 

260 “І7747 27747 5214 ЭЖ) ニュ ウリ ョ 7 


27@ LOCATE 20,Q:PRINT И51Мб"##7774 "2) fhuj=WW04";NZ;HEN 
280 LOCATE 20,2:PRINT"#"3 92877 ANY KEY HIT !" 

290 MHILE INKEY$=" "iMEND 

300 6070 16@ 

510 * 


320 エラ ーッ ョ M 
350 (0САТЕ 20,20:РКІМТ"%29 50" 37":Е0К T=Q TO 2000: МЕХТ 
| 540 CLS:RESUME 180 
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配列 と 行列 の 和 ・ 積 








* 行 列 と は ? 


** 行列 の 和 と 積 の も と 
めか た 


物理 に お ける 力 の 大 き さ と 力 の 方 向 を どの , 要素 (成分 ) を ひと ま 
と め に し て 表わし た りす る と , た と えば それ を いろ いろ と 変換 する 時 
に 便利 で も あり , 説明 ある い は 理解 し や すく な り ま す . この よう な 時 
に 使う の が 行列 (マト リク ス :matrix) と 呼ば れる も の で す . 

行列 は 物理 や 林 何 学 そ の 他 に お いて 重要 な 働き を する も の で , これ 
だ け を 専門 に 勉強 し て も 勉強 し きれ な いも の と いえ ます . 本 節 で は こ 
の 行列 と その 計算 (演算 ) の 基礎 に つい て 触れ る こと に し ます . これ 
か ら 先 に 出 て くる 3 次 元 図形 その 他 を 本 格 的 に マス ター する 時 , マト 
リク ス の 演算 が 関係 し て きま す が , その 予備 編 と 考え て いた だ いて も 
ІЗІ 2). б.с ЫН 


行列 は 読ん で 字 の ご と し … 行 (上 か ら 下 へ と 並ぶ : column) と 列 ( 左 
か ら 右 へ と 並ぶ : Fow) の それ ぞ れ に 成分 が ある も の で , た と えば 2 
行 3 列 の 行列 (マト リク ス ) で は 合計 6 個 の 成分 か ら 構成 され ます . 
コン ピュ ー タ で は , た と えば それ を М (2, 3) と いう よう に し , ЛО 
字 は 行 , つぎ の 添字 で 列 を 表わし ます . 

行列 の 計算 で す が , た と えば M1, M2 の 2 つが あっ た 時 , 加減 算 に 
つい て は , それ ぞ ざれ の 位置 に ある 成分 を 加減 する だ け の 作業 に な , 
ご く 人 簡単 で す . た と えば 

О) 3 | 8217 
бы 6? а) + | деу 505 ы Е ы 13, г 
加算 の プロ グラ ム と あわ せ て 見 て くだ さい . 

いっ ぽう 行列 の 乗算 (か け 算 ) は 特別 で , た と えば М1- тїт 7 列 , 

M2 一 7 行 ヵ 列 の と き 


1 
мидын XM24 (і-1,2,--т,)-1,2,--п) 


2 は イン テグ レー ショ ン ( 合 算 , まとめ る ) で M1 と M2 の 成分 を 式 に 
し た が っ て 乗算 し て ゆき , それ を 合計 し た も の に な り ま す . 


ЫЗ (бе 
х 
з, 5 6, 8442 


で は , MM1 が 2 行 2 列 (ニー2, 1=2), M2 が 2 行 3 列 (1= 2, п= 
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100 “MATRIX 1 жж 97" 27° 100 “MATRIX 2 ** リョ 9 が っ 
119 MIDTH 49,29:CLS 110 WIDTH 49,29:CLS 
120 DIM М1(2,3),М2(2,3),М(2,3) 120 DIM М1(2,2),М2(2,3),М(2,3) 
130 “жж М1/ ヨミ コミ 13@ "+++ M1/ ヨミ コミ 
140 FOR 6=1 TO 2 '#°з9 140 FOR 6=1 ТО 2 “Ға? 
180 FOR R=1 TO 3 し ル 9 150 FOR R=1 TO 2 し 9 
160 READ M1(B,R) 160 READ M1(B,R) 
179 DATA 2,1,3, -1,5,0 179 DATA 2,4, 3,5 
180 NEXT RB 18@ NEXT R,B 
190 “жж М2) ヨミ コミ 190 “жж М2) ヨミ コミ 
200 FOR 6-1 TO 2 200 FOR 8-1 TO 2 
210 РОК R=1 TO 3 210 РОК R=1 TO 3 
22@ READ М2(Б,К) 220 READ MZ2(6,R) 
230 DATA -1,2,4, 3,8,5 230 DATA 3,1,-1, 6,8,2 
240 NEXT К,6 240 NEXT R,B 
250 '*** エッ サリ 250 ән エフ 9 ドッ 
260 FDR B=1 TO 2 280 FOR R=1 TO 3 
279 FOR R=1 70 3 270 FOR 6-і TO 2 
280 NM(B,R)=M1(B,R)+M2(G6,R) 280 FOR К=1 TO 2 "イッ テ 7" ルー ショッ 
290 NEXT К,6 290 M(6,R)=M1(6,K)*M2(K,R)+M(G,R) 
300 “жж F'í522°l 4 300 NEXT К,6,К 
310 FOR 6=1 TO 2 310 “ж テリ イス 2 ルイ 
320 FOR R=1 TO 3 320 FOR 6-1 TO 2 
350 РКІМТ M(6,R); 330 FOR R=1 TO 3 
340 NEXT R:PRINT 340 PRINT USING"### ";M(6,R); 
350 NEXT 6 350 NEXT R:PRINT 
380 END 360 NEXT б 
370 END 

^ 行 列 の 和 を も と め る 人 行列 の 積 を も と め る 

3) で すか ら , この 結果 の M は M(i,j)ー=M(2,3) に な り ま す . た と え ぇ 


(ЕМ (2.3) は を を 1 か ら 7/( 王 2) ま で 変え 
і た た ] 
к=11М1(2‚ 1)хм2(1, 3)—3х(—1)——3 


i k 
k=2:M1(2, 2)xM2(2, 


k j 
3)= 5 х 2 =10 


を 合計 し た も の で すか ら , М (2,3) 一 7 に な り ま す . 
2 つの 行列 の 乗算 の プロ グラ ム 列 を 上 に 示し ます . FOR 一 NEXT 


の ルー プ が ひと つ 追 加 さ れ , 
Иң ООА С» 


さき ほど の M1XxM2 は 


= 34, | 
39, 43, 7 


に な り ま は 。 


前 に 述べ た 式 に し た が っ で 2 ンカ スグ 


レー 


ШЫ .— таға = =. Еа a 
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平面 図形 の 回 転 と 行列 


* 回 転 を 表わす マト リク ス 平面 図形 に ある 点 は 2 つの 位置 要素 … ヨ コ 位 置 を 表わす も の と タテ 
位置 を 表わす も の , 一 般 に は x と ヶ が 使わ れる … で 扱う こと が で きま 
+. 点 (х,у) が 原点 を 中 心 に し て ある 角度 @ だ け 回 転 し た 時 の 新しい 
қ (5,57) は 次 の 式 で 表わさ れ ま す . 

MM ү рә (4 

- x 

у” sind cosd у 

つま り 回 転 後 の zx? ヶ "は 行列 演算 に より 計算 で きる の で す . さっ そく 
これ を プロ グラ ミン グ し て み ま し ょ う . 前 に 説明 し た 行列 の 乗算 が そ 
の まま あて は め ら れる の で , と りあ え ず それ を 忠実 に 守っ た プロ グラ 
ム に し ます . M1 は 2 行 2 列 (m=2, 1= 2), M2 は 2 行 1 列 (7=2, 
п-1) ЖОС, この 結果 は 2 行 1 列 に を な り ま す . 

演算 は 








1 
М:= У М1 х М2 (i= 1-:: 2) 
к= 1 


に な り ま す . 7 に 関係 する 項 は 出 て きま せん . また 回 転 は 反 時 計 ま わ 
ОШ О Л 避 の プログ ラ 必 に よっ て 求め 区 oy が EE し いか どう か 





100 “ғу) カイ テッ ト MATRIX (x, у”) 
11@ DEFDBL D 

120 DIM М1(2,2),М2(2),М(2) 

13@ モト ノイ チ / ニュ 9 リョ 7 

140 INPUT" テ ッ x ノ 4% ";М2(1) 

150 INPUT" テ ッ y ノ イチ ",M2(2) 

160 ‘2472772 ニュ ウリ ョ 7 

17@ INPUT" ナ ッ ト * カイ テッ 9t?2h "3р 

180 D=( さ .14159265359#/189) ж 

190 М1(1,1)-С05(0):М11(1,2)--бІМ(р) 
200 М1 (2,1) =51М(0):МІ (2,2) =С05 (р) 
210 "エフ サッ 

220 FOR I=1 TO 2 

230 FOR К-1 TO 2 

240 М(1)=М1(1,К)#М2(К)+М(1) 

250 NEXT K,1 

20 ' 

270 PRINT"x =";M(1) 

280 PRINT"y =";M(2) 
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は , 方 眼 紙 と コン パス , それ に 分 度 器 を 用 意 し て 実際 に 試し て みる と 
よい で し ょ う . コン パス の 針 の 位置 が x 一 0. 9? 一 0 に な り ま すか ら , そ 
こ か ら 半 径 10cm ほ どの 大 き な 円 を 描き , 方 眼 紙 に 目盛 を 打つ こと で 確 
認 で きま す . な お , この プロ グラ ム で は 角度 に つい て の み 倍 精度 を 使 
っ て いま す . 単 精度 で は 計算 値 に 誤差 が 出 ま す ( 例 : z=10, y=0 と し 
<, 90 度 回 転 き せる と ぇ "テー0, 9 10 に な る の で す が , コン ピュ ー タ 
の 結果 は これ と は 一 致し ませ ん ). また , F-BASIC で は 角度 は ラジ ア 
ン 値 を 使う の で , 角度 で 扱う 時 は あら か じ め そ れ を ラジ アン 値 に 変換 
し で お くに ご と が 必要 : で す 。 


キネ ユー ザー 定義 関数 を 点 の 回 転位 置 は 以上 の よう に 行列 を 使っ た 変換 式 で 求め られ ます が 
使っ て みる 実際 に は 
ァ = хсо5й—узїпа 
у/-хвіпа +-усоѕа 
Ес аа кадры ジロ グラ ミン グ ド ば そこ ちら の ほう が で くう に と 
り 早 い の で , この 式 を 使っ て , 回 転 後 の 位置 を 計算 させ る 方 法 が , よ 
く 使 われ ます . また , F-BASIC は ユー ザー 定義 関数 が 使え る の で , 
それ を 応用 ずる と 。 と くも スッ キリ と し た プロ グラ ム に な り ま す . そ 
の サン プル プロ グラ ム を 見 て くだ さい . 
新しい 点 を XR,。 YR と すれ ば , これ は , いずれ も (X, Ү, р) と いう 
要素 を パラ メー タ と する も の に な る の で , サン プル の よう に , 行 番号 
120, 130 で それ ぞ れ を 定義 し て お け ば , FM-77 が 内 部 で 自動 的 に 計算 
を し て くれ る こと に な り ま す . この 回 転 数 の 点 の 位置 を 求め る こと を 
基本 に し て , グラ フィ ッ ク 命 令 と 組合 せる こと に より いろ いろ な 図形 
が 描け る こと に な り ま すす 。 





100 "テッ ノ カイ テッ ト DEF FN 

110 DEFDBL D 

120 DEF FNXR(D,X,Y)=X*COS(D)-Y*#SIN(D) 
150 DEF FNYR(D,X,Y)=X*SIN(D)+Y*COS(D) 











140 

ェ ッ x ノ イチ 2 1Q 150 INPUT" テ フ x ノ イチ "х 

yuy) イチ Q 160 INPUT" テ フッ y ノ 4* "ҙҮ 

ЖКС カイ テッ 97777 ? 135 170 INPUT "ナット" カイ テリ 9 も マカ "iD 

x'=-7.07107 188 ' 

у'= 7.07107 190 D=(3.14159265359#/189) *D 

ТҮ" 200 PRINT"x'=";FNXR(D,X,Y) 

実行 結果 の 例 ( ど ちら の ブロ グラ ム で も 同じ ) салы р БОРУ КЕЛ 








VE. J k. — =: >= е ИНН ЧЕР ар 
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原点 を 中 心 に し て 図形 を 回 転 さ せる 
* 回 転 き せる 前 に 関 形 を 回 転 きせ 2, と いう と ひど くむ ず か し いよ うに 思え ます が , 


※ ァ (パイ ) =). 円 に お ける 直径 と 
円 周 の 比率 で 3.141592653589793 


**※ 回 転 プ ログ ラム の 作 
りか た 


АҒАН АЙЫ 


F] 


|09 





は じ め に 説明 し た よう に , 原点 を 中 心 に し て 反 時 計 ま わり に ある 角度 
だ け 回 転 き させ た と き の X, Y 座 標 の 変換 式 を 使い きえ すれ ば , 回 転 後 
の 座標 値 XR, YR は 簡単 に 求め る こと が で きま す . ここ で は 前 出 の 5 
つの 点 を 結ん で 作る 図形 を その まま 使い , それ を 指定 の 角度 だ け 回 転 
«ЖШ. まや 

な お , F-BASIC で は 角度 に ラジ アン 値 を 使い ます . 私 た ち が 小 さい 
頃 か ら 学 ん で きた 角度 は , コン パス を グル リ と ひと まわ し する と 360"* 
0 及 の の ac た 天 そ れ に 放り 末 ラ ジア シ 値 で 人 は 2 に な の (まつ ほ 
0 360%-2л, 180%-л, 90" 一 0.5 ヶ と いっ た 対応 に な り ま す . し た が っ 
て 「 何 度 回 転 き せる か 」 と いう 時 も , 角度 で は な く , それ を ラジ アン 
値 加 し な けれ ぼぼ いけない の で すず 1° に 相当 する ラジ アン 値 は (2 々 て 
360) に な り ま す . な お , BASIC プ ログ ラム で は これ を (т--180) に 
0, 「3.14159180」 と か , あら か じ め ァ ヶ を PI と いう 変数 に 代入 し , 
「PI 一 3.14159」 と し て お き , た と えば 「PI ン 180」 な ど と する の が 普 
通 で す (ここ で は DEGRAD). 


回 転 の プロ グラ ム の 基本 は 
〇 元 に を な る 図形 の 点 (X, Y) ЖЖЖ, 配列 に 入れ る 
O 何 度 回 転 き せる か を 求め , その 角度 を ラジ アン 値 に 変換 する 
Oo 回転 後 の 座標 値 が どう な る か を 計算 させ, その 結果 を 別 の 配列 に 入 
れる (XR, YR) 
〇 グラ フィ ッ ク 表 示 の サブ ルー チン を 呼び 出し , 回 転 し た 図形 を 描か 
せる 
と いう こと に な り ま す . サン プル プロ グラ ム で は FNXR, FNYR と い 
う , 2 つの ユー ザー 定義 関数 を 作り , 行 番号 340 で その 関数 を 呼び 出し 
て 計算 さき させ, XR (П, YR (D z と いう 配列 に その 結果 を 代入 きせ て いま 
す . パラ メー タ は D, X, Y の 3 つ で す が , D に つい て は 行 番号 320 で 
求め て いま す . X; Y に つい て は , X (D ҮП) を 配列 か ら 呼 び 出 し 
СЕЛТ 2%, YS 代入 MI で いま P. 
また 原点 か ら X 方 向 , Y 方 向 へ の 座標 軸 は , 7Х5, ZYE な ど と これ 


её э. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
500 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
450 
440 
450 
460 


"ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ スズ ス " ガイ / 月 イ テリ *#5%/ 739 477% = ニニ ニニ ュ ニ ニニ ニニ ニニ ニニ ニニ ニ 
DEF FNXR(D,X,Y)=X*COS(D)-Y*SIN(D) 

DEF FNYR(D,X,Y)=X*SIN(D)+Y*CODS(D) 

DIM X(6) ,Y(6) ,XR(6) ,YR(6) 

MIDTH 80,25:CLS 

DEGRAD= ミ .14159/189 


8Y=.43: X9=390:Y9=109:7X8=9:7XE=699:7YS=9:7YE=199 
REM *SY=s1299 Х@,ҮВ=7° 272 1Х8,1ХЕ-Х9%7:1Ү5,17ҮЕ-Үу” 77 メ モリ 
FOR 1=1 TO 5 

READ X%(1) ,Y(I) 

DATA 10,10, 20,-30, 70,70, 0,120, -50,-20, 
NEXT I 

X(6)=X(1):Y(6)=Y(1) 788.54.842 йу” АА 4992 #73 44977) 
“-------------------- も トノ 2774) Еау" ---------------------- 
LINE(ZXS,Y0)-(ZXE,Y0),PSET,S5:LINE(X0,ZYS)-(X0,ZIYE),PSET,5 
C=7 “уп4 407° іт? 
FOR 1=1 TO 5 
XS=X0+X(I):YS=Y0-Y(I)*#SY:XE=X0+X(I+1):YE=Y0-Y(I+1)*SY 

605UB ДЕЙ, "65965255 жом 0 овие в LINE SUB 

NEXT 1 

"ーーーーーーーーーーーーーーーーーーーーーー ЛА?) 219087 ------------------------ 
LOCATE @,@:1МРИТ"ТуУК` カイ テッ 9 マス カカ "; 0: р=ржрЕВКАр ララ アッ パフ カッ 


FOR 1=1 TH 6 
X=X(I):Y=Y(I):XR(I)=FNXR(D,X,Y):YR(I)=FNYR(D,X,Y) 

NEXT 

ресе ЕЕ ыдыс а 7472 2774) 上 ヨウ シッ" ----------------------- 

C=6 キイ ロイ 402-70 

FOR Ізі TO 5 
XS=X@+XR(I):YS=Y0-YR(I)*SY:XE=X@+XR(I+1):YE=Y0-YR(I+1)*SY 
BOSUB 450 *........... ...«......1МЕ SUB 

NEXT I 

END 


“**** LINE SUB жж 
ГІМЕ(Х5,Ү5)-(ХЕ,ҮЕ),Р5ЕТ,Б 
RETURN 








も 変数 化し て いま す . 行 番号 250 で 座標 軸 を 描い て いま す が , あら か ば じ 
め 変 数 化し て お け ば , 変更 を する 時 も プロ グラ ム 中 の 実行 ルー チン ( こ 
こ で は 行 番号 250) その も の に 手 を 加え ず , 行 番号 160 の 初期 値 設定 だ 
け に 手 を 加え れ ば よい の で , 修正 が 楽に を な り ま す . 変数 の 種類 が 増え 
て くる と 管理 が た い へ ん に な り ま す が , REM 文 な ど で 変 数 リス ト を 作 
成 し て お け ば , 忘れ て し まっ て も この 変数 リス ト を 見 る こと で フォ ロ 


ー で きま す . 
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図形 の 連続 回 転 








* 凌 形 を 回 転 さ せ て みる 


ж ФЕР 
描く か , 計算 し て か ら に 
する か ? 


つぎ は 基本 図形 を 一 定 の 角度 で つぎ つぎ と 回 転 き せ て み ま し ょ う . 
Z@Zvu⁄ > ЧАН ЖОСА つの 点 は (30, 0), (100, 一 30), 
(170, 0), (100, 30) に を な り ま す . 回 転 角度 は 1 回 に つき 12*" と し , こ 
れ を 30 回 くり か えす と ちょ うど 360'" に な り ま す . まず 基本 の 点 を X, Y 
と し て , 配列 に 読み こま せま す ( 行 番号 220 一 230)0. つぎ に 回 転 後 の 30 
個 の 座標 を XR, YR と し て 2 次 元 配 列 を 用 意 し , まず この 配列 に 回 転 
の 計算 結果 を 入れ て し まい ます . この 2 次 元 配列 は た と えば 

XR (1,1) 12* 左 へ 回 転 し た 時 の , 元 は * テ 30 の 双 座 標 

XR ( 1 , 2 ) 12" 左 へ 回 転 し た 時 の , 元 は x ぇ =100 の X 座 標 

XR (1, 3 ) 王 12* 左 へ 回 転 し た 時 の , 元 は x テ 170 の XX 座標 

XR ( 1, 4) 一 12" 左 へ 回 転 し た 時 の , 元 は z=100 の X 座 標 

XR (1,5) は XR(1, 1) と お な じ XX 座 標 
と いう こと で す . 添字 の 最初 は それ ぞ れ の 回 転 角 度 に 対応 し , つぎ の 
添字 は 元 の XX 座 標 の 個数 に 対応 し て いま す . 


回 転 し た 時 の 座標 を 求め . それ に 応じ て 図形 を 描く と き , この プロ 
グラ ム で は 一 括 し て まず 計算 を させ , それ を 配列 に し まっ て いま す . 
その 後に まとめ て 図形 を 描く の で , 描く スピ ー ド は 速く な り ま す . 

いっ ぽう 1 回 の 計算 を し た ら ひ と つの 図形 を 描く 方 法 も 考え られ ま 
す が , この 時 は 原則 と し て 配列 の よう な , 回 転 後 の 位置 を メモ リ し て 
お く 手 段 は 不要 で す . 回 転 後 の 座標 を 求め た ら 図 形 を 描き , 変数 に 入 
っ て いる 座標 値 は つぎ つぎ と 捨て て いっ て も か まい ませ ん . その 代り 
ひと つの 図形 を 描い て は また 計算 を する の で , 図形 を 描い た あと に 少 
し 時 間 が か か り , 見 か け 上 ゆっ くり と 30 個 の 図形 を 描き ます . 

どちら の 方 法 を 採用 する の か は その 目的 に よっ て 選べ ば よい の で す 
が , 人 間 の 心理 と し て は 図 が つぎ つぎ と 早く 描か れ た ほう が な ん と な 
く 気 持 の よい も の で す . この プロ グラ ム で は 計算 中 の 待ち 時 間 に , そ 
れ を 見 て いる 人 間 が 「 い っ た い , いつ 図 を 描き 始め る の だ ろう ?2」 と 
イラ イラ し な いよ うに 行 番号 250。280 で メッ セー ジ を 出し て , あと ど 
の くら い 待 て ば よい か を 知ら せ て いま す . 単に 「 待 っ て くだ さい 」 と 
する より も , 行 番号 280 の よう に 残り 回 数 を 知ら せる 方 が 効果 的 で す . 





回 転 す る 菱形 b 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3560 
370 
380 
590 
400 
410 
420 


'==================== 2794) カイ テッ ЖЕУ) 9) カイ テッ ニニ ニニ ニニ ニニ ニュ ニニ ニニ ニニ ニニ ニニ ニニ 
DEFINT 1,0 

DEF FNXR(D,%,』Y)=X*C0S(D)-Y*SIN(D) 

DEF FNYR(D,X,Y) =X*SIN(D)+Y*COS(D) 


DIM X(5) ,Y(5) ,XR(39,5) ,YR(39,5) 

DEBRAD=3.14159/180 
5Ү-.43:ХйЙ-300:Ү0-100:17Х5-50:7ХЕ-550:7Ү5-0:7ҮЕ-199 

КЕМ %5Ү-у12)9 Х0,Үй-? 272 1Х5,1ХЕ-Ху"7:17Ү5,27ҮЕ-Үу" 789 


MIDTH 8@,25:С15 

"ーーーーーーーーーーーーーーーーーーーーーーーーー 49) テッ ノ ヨミ コミ ---------------------------- 
FOR 1=1 TO 4:READ X(I) ,Y(I):NEXT I 

DATA 30,0, 100,-50, 170,0, 100,50 


X(5)=X(1):Y(S)=Y(1) 74%6664644.......1407/9 утуһ 479722) 
LOCATE 20,10:РКІМТ"79747 サリ チュ ウー ジル 27 17#77°%94" 
"ニー モー ピー ピュ エニー テコ コピ ウ ロキ ーー ここ 5 ищ ПАЛИТИ аы ыран: ао ea mm 
FOR 1=1 ТО ЗВ '^+++++++««» ев» ”вве во 3074 カイ テリ サヤ セル 
LOCATE 30,13:PRINT (30-1) “+o... 749 ソ 7。 224707449 6870" 
D=D+12DEBRAD '..... カ 7 ト "3 127 ズ リウ 272 
РОК 9-1 TÜ S ドッ ッッ ッッ ッッ トド ゃ ッッ"* ッッ KA 25342 9 E ョ 9 492 


X=X(J):Y=Y(J):XR(I,J)=FNXR(D,X,Y):YR(I,J)=FNYR(D,X,Y) 
NEXT 2,1 
*=- X・Y 977 3 ІЛ? ---------------------------- 
CLS 
LINE(7 XS,Y9)-(ZXE,Y9) ,РЅЕТ, 5:LINE(XQ,ZYS)- (XQ,ZYE) ,PSET,5 
"ーーーーーーーーーーーーーーーーーーーーー カイ テッ 27749 Ip") ----------------------------- 
FOR Ігі TÜ 3Ü ドド ッッ トッ ッッ oo oe ......%0И0Л4 ІЛ" 7 
FOR 1-1 TÜ 4 онан е ЕМ?) 27743 177 
LINE(X0+XR(I,J),Y0-YR(I,J)#SY)-(X@+XR(I,J+1) 。Y9-YR(T。J+1) *SY) ,РЅЕТ, 6 
NEXT 4,1 


END 
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3 次 元 図形 の 基礎 








ж 3 次 元 図形 と その 表現 


**※ 遠 くに ある も の は 小さ 
く 見 える 


жжж 3 つの 回 転 軸 と 
位置 の 計算 


立体 物 を それ らし く 見 える よう に 描く 工夫 は , 多く の 芸術 家 や 科学 
者 が 古く か ら 研 究 し て きた こと で す . 現在 の , レー ザー 光線 を 使っ て 
立体 物 を 空間 に 投影 する よう な 特殊 な 技術 を 使う こと を 別に すれ ば , 
立体 物 は すべ て 平面 …… 紙 や ディ スプ レイ な ど に 投影 され ます . そし 
て 平面 に 描か れ た も の に 陰影 を つけ た り , 手前 に ある も の と 奥 に ある 
も の と の 大 き さ を 変え た り し て 表現 する の が 一 般 的 で す . さら に 立体 
物 の 表現 は , 工業 的 な 目的 に 使う の か , 芸術 的 を 表現 に する の か な ど , 
その ね らい に よっ て デフ ォ ル メ さ れる こと に な り ま す . 

パー ソナ ルコ ンピュータ に よる 立体 物 の 表現 (以下 3 次元 図形 ) も 
その ね らい が 何で ある か に よっ て , 処理 の 内 容 が 異な り ま す . ここ で 
は 芸術 的 表現 は さて お いて , ご く や さ し い 3 次 元凶 形 を 考え を る こと に 
し まし ょ う 。 記憶 容量 が 大 きく , 高速 演算 が 可能 な コン ピュ ー タ の 場 
合 は 。 ディ スプ レイ の 1 点 1 点 に つい て 3 次 元 的 な 処理 が 可能 に な り 
ます が , そう で な い 場 合 は 限度 が ある こと も 理由 の ひと ТОСУ”. 


3 次 元 図形 を 考え る と き の 第 一 の 原則 は , 遠く に ある も の は 小さ く 
見 を る た め , 平面 に 写し と る 時 も 小さ く な る , と いう こと で す . も う 
ひと つ は 自分 が 立っ て いる 位置 と , 対象 物 と の 距離 に よっ て も 見 え か 
た が 異な る こと や , それ を 表現 する 時 に 適当 に 省略 する か, 患 実 に 守 
る か と いっ た こと が あり ます . 

し た が っ て 与え られ た 図形 を も と に し て , 3 次 元 図形 を 描く に は さき 
ま ぎ ざま な パラ メー タ が 必要 に な っ て くる の で す が , ポイ ン ト に な る 計 
算 だ け を し て , あと は 省略 し て し まい , それ らし く 見 えれ ば よい と い 
as a Е ЕВЕ 


まず 立体 物 の 回 転 を 考え を まし ょ う . ビル な ど は 回 転 で きま せん が 見 
る 人 が その 位置 を 変え た れ ば , 相対 的 に ビル を 回 転 き せる の と 同じ に な 
り ま す . ここ で は 見 る 人 は 動か ず , 対象 に を な る も の を 回 転 き せる こと 
сс, 空間 に ある 点 は Yi の 8 3 つの 位置 の 情報 が 
与え られ て お り , 回 転 を する 軸 も お な じ よ う に X 軸 , Y MW, ZMN # 
り ま す . この うち , も っ と も 分 りや すい の は Z 軸 を 申 必 回収 き せ た 
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А 3 次 元 図形 と 3 つの 回 転 軸 





42Z 軸 を 中 心 に し た 回 転 は 平面 図形 の 回 転 と お な じ 

時 で , これ は 平面 形 の 回 転 と お な じ こ と に な り ま す . 

すなわち , 点 の 位置 情報 の うち 奥行 き に 関係 する も の (942) は い 
っ きい その 値 を 変え ず に , ХХ, 点 Y が Y" に な り ま す . 

Z 軸 の 回 転 ХХ Ү-Ү” 27-7. 

同様 に し て Y 軸 を 中 心 に し て 回 転 き せる (た と え ぇ ば 玄関 の ドア を 開 
ける よう を な を 回転 ) と 

ҮОБ: ХХ, Ү-Ү 7-2, 

X 軸 を 中 心 に し て 回 転 き せる (た と えば 洗濯 機 の フタ を 開け る よう 
な 回 転 ) と 

X 軸 の 回 転 :XーX Ү-Ү” 7ә7/ 
と いう よう に 変化 し ます . これ ら は いずれ も 平面 図形 の 回 転 の 計算 式 
Ы ола рар ата же зет 
@Z 軸 を 中 心 に し た 回 転 

х/--хсов 0:—уз1п 0: 

у = хѕіп бг -усоѕ 0: 
@Y 軸 を 中 心 に し た 回 転 

г” = 2с05 у — хѕіп бу 

х/--гвіпбу--хсов 0, 
@X 軸 を 中 心 に し た 回 転 


y =ycos х — 25іп Өх 


2' = уѕіп 0: |-гсоѕ Өх 


と いう わけ で す . 
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奥行 き の 情報 を 使っ て 平面 図 に する 








* デ ィ ス プレ イ は 平面 な 
の で ・ 556% 


ビル ディ ング な ど 。, 稼 線 が 平行 な 建物 な を ど を 見 る と 分 る の で すか が , 
も と も と は 平行 な 線 は , 遠く に 行く ほど 間隔 が せま く な り , や が て は 
どこ か で 交わ る よう に 見 えま す . この , 仮想 的 に 交わ る 点 を 消 点 と い 
いま す が , 立体 物 を 平面 上 に 描く と き は , この 消 点 を いく つ に 設定 す 
る か に よっ て その 技法 は 異な り ま す ・ 

ここ で は 単 (1 点 ) 消 点 に よる 透視 を 考え , それ を プロ グラ ム 化 す 
る こと を 考え まし ょ う . 単 点 透視 は , た と えば 立体 物 の 上 下 と 左右 の 
線 は 平行 (も と も と の 立体 物 の 答 線 が 平行 と し て ) に 描か れ , 奥行 き 
に 関係 する 線 が 平行 に を な ら ず , 消 点 に 向っ て 収束 する よう な 図 に な る , 
も っ と も や さ し い も の で す が こ れ で 十分 に 通用 し ます ・ 

単 点 透視 の 基本 は 

1 立体 物 の 奥行 き に 関係 する デー タ を 知り 
2 奥行 き の デ ー タ を 使い , 平面 図 の 点 (X, Y) を 変換 する 
と いう ,。 2 つの 作業 を 行ない ます . この 変換 の 例 を 下 の 図 で 説明 し ま 
à Вож 

左 の 四角 が 実際 の 物 で , これ を スク リー ン に 写し て , XX 座標 が いく 
つ に な る の か を 計算 し よう , MS VN まり Z 軸 の 正 の 方 向 
(見 て いる 人 に と っ て は 手前 側 ) の の 位置 に , 原点 か ら X だ け 離 れ た 
点 選 が ある と し ます . を お , こと ご * は 点 P の Y の 値 に つい て は 考え に 
は 入れ ませ ん . この スリ ー ン か ら SD だ け 離 れ た 所 に , と りあ え ず 人 
СС АЕ ap の 実際 の 点 P と スク リー ン の 点 P^ お よび S 

















**※ 変 換 に つい て の 注意 
мі 
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D と ZD は , 比例 関係 に を まっ て いる こと が 一 目 で 分 り ま す 

P:P'=[(SD +(ZD—Z)] : SD 
で すか ら , この 関係 か ら P′ の X 座 標 値 を 求め ある こと が で きま す . 

PXSD=P/ x [(SD) 十 (ZDー ク ) ] 

Р’=Рхѕр- (5р) 十 (ZDー ク ) ] 

図 の 点線 は スク リー ン に 写し た 奥 に ある 点 の 場合 で . スク リー ン 上 
に は 手前 の 点 P よ り も 下 に 投影 され る こと が 分 り ま す . も と も と の 立 
体 物 は , 点 P も , その 点 よ り も 奥 に ある 点 も , 双 座 標 に つい て は 同じ 
で あっ た の で す が , スク リー ン に 写し た 時 は XX 座標 値 に 関し て は 小 き 
な 値 に な る こと が 分 り ま す . 

これ が 変換 の 作業 で . スク リー ン を ディ スプ レイ と 考え れ ば , 本 物 
の 立体 物 の 奥行 き に 関係 する 要素 (Z 座 標 値 ) は , 変換 に よっ て 消え 
て し まい , 平面 に 描く こと が で きる の で す . を なお, Y 座 標 に つい て も 
まっ た く 同 じ 計 算式 が 使え ます . 


また , この 図 を 見 て 分 る こと で す が , スク リー ン を 左 に 近づけ れ ば 
平面 に 写 さ れる 図 は 大 きく な り ま すし , それ と 共に も と も と の 立体 物 
の 寸法 は 変ら な い の に , 平面 図 に し た 時 に 奥行 き に つい て の 表現 が 強 
張 さ れ ま す . また , SD を 大 きく と る と 写 さ れる 図 の 大 き さ は 実物 に 
近く な り , 奥行 き に つい て の 表現 は 弱まり , すべ て の 線 が 平行 に 近く 
な り ま す . 

ZD や SD の 値 を どう 設定 する か に つい て の 法則 は な を ない の で , 実際 の 
プロ グラ ム で は それ らし く 見 える 値 に し て よい で し ょ う . また , 2р 
は 省略 し て , 変換 後 の X 座 標 を 求め る の に 

X° =XxSD—(SD—Z) 

と し て も か まい ませ ん . 

プロ グラ ミン グ に 際 し て は , 立体 物 の 点 の 情報 (X, Y, 2Z) を し っ か 
り と つか まえ て いれ ば , この 立体 物 を 傾け た り し た 状態 を 平面 に 号 し 
と る こと も た や すく で きま す . また , 点 の 情報 を 多 次 元 の 配列 に 収め 
れ ば , プロ グラ ム は 短 か い 行 数 に を な り ま す . た と え ぇ ば 立体 物 の 点 が 10 
個 だ っ た ら P (10, 10, 10) な ど と し , 最初 の 添字 が 点 の 数 , つぎ が XX 
座標 , 最後 が Y 座 標 と いっ た よう に 使え ます . た だ し , 慣れ な いう ち 
は 1 次 元 の 配列 を 使い , 変数 名 も 分 りや すく する ( 例 : 手 前 の 点 の XX 
座標 は TX, 奥 は OX な ど ) ほう が まち が いあ り ま せん . 
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* 直 方 体 を サン ブル に 


** こ れ を も と に , いろ 
いろ と 応用 し て みよ う 


立体 の 回 転 プ ログ ラム 














Ча, 立体 物 を X Ү, Z 軸 を 中 心 に し て 回 転 き せ , それ を 平面 区 
КРИ ИЧ と こと で は サブ ルー チン を 多く 
し で , 個々 の 操作 が よく 分 る よう に し て いま す . これ を 元 に し て 応用 
する と き は それ を ふま えて 要領 よく まとめ れ ば 半分 ほど の 行 数 に 圧縮 
で きる と 思い ます . 

ここ で モデ ル 化 し た 立体 物 は 幅 300, 155200, 奥行 き 150, 3 次 元 
軸 に 対し て は 上 下 と 左右 に つい て は 中 央 の 位置 に 置い て いま す . 変数 
TX, ТҮ, TZ に つい て は Z 軸 に 対し て 正 の 方 向 ,. OX, OY, OZ は 負 の 
方 向 に な っ て いま す . し た が っ て 正面 か ら 見 た と き , OX や OY の ほう 
が 小さ く 見 えま す . まず 原図 を 出す た め に 行 番号 170 一 250 で , 正 立 し 
正面 か の ら 見 た も の を 出力 し ます . な お , ここ で は SD テテ 1000, ZD= テ 400 
СЕРЛЕ 6 0157: 


立体 物 は それ ぞ れ の 軸 に つい て , 何 回 で も 回 転 き せる こと が で きま 
+. 回 転 を させ た ら , 当然 の こと で す が 点 の X, Y, ZZ の 座標 値 は 変 
A; S pa Ж о) ту). LTZ(1) な どの , а 55-2 
前 の 配列 を 使う と 共に , 1 回 の 回 転 ご と に それ を RTX (1), RTY (D 
な ど と いう 新しい 配列 に 一 度 変換 し て や り ま す . すべ て の 座標 計算 が 
終っ た ら , この 座標 値 を また TX(I), TY(I) に も ど し て お く こ と に 
より , それ ぞ れ の 軸 を 中 心 に し た 回 転 サ ブ プルー チン を 何 回 も 呼び 出す 
こと が で きる の で す ( 行 番号 630. 730, 830). な お , それ ぞ れ の 回 転 を 記 
録 し て お く た め に , 回 転 軸 と 回 転 角 を 配列 に 入れ まし た ( 行 番号 350) 
回 転 を 何 回 命令 し た か は , R と いう 変数 で カウ ント し て いま す . 

また , この 立体 物 の , 最初 は 手前 に 見 える 面 に は X の 対角線 を 引い 
て いる の で , 回 転 を させ た あと に その 面 が どこ に 位置 し て いる か が 分 
り ま す ( 行 番号 1100 一 1110 お よび 写真 参照 ) な お , 回 転 を きせ た 時 の 
座標 計算 用 に , た と えば DEF FN を 使い , 回 転 を させ る 前 に 変数 を 
引渡 し て お く (BJ: XX 軸 の 角度 は DEGX で 入力 し , 計算 ルー チン の 前 
に DEG=ーDEGX な ど と する ) な どの 手法 を 使え ば. ひと つの サブ ルー 
チン で すみ ます 

サン プル の 図形 に こだわ ら ず , 自由 な 形 の も の で 試し て 下さ い . 
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100 +++ ++ +++ ++ + ++ к нж 94 / ЛАТУ желетке к ЕЕЕ к еее ++ ++ +++ + 
1108” 

120 НІШТНЕй,25:РАІ1-3.14159:5Ү-.425 

130 Х0-500:Үй-100:КАП-РА1/180:50-1000:70-400 

140 6050В 1140: す 9" ヒ 上 ョ 9 DATA3 ヨム 

150 ' 

160 “---------------- 47327 Ез?" ------------------ 

17@ C=7:CLS 

180 СОММЕСТ(5@й,1@0@0)-(55@,10@0),5:'....................уу*7 

19@ СОММЕСТ (300,15) – (300, 180) ‚5: ..... リク 

200 БҮМВ0І (40,97),Х",1,1,7 

210 SYMBOL (29605), YW 1,1,7 

220 ПЕб7-ЙяРАр: -.................. カイ テリ ラナ イ 
230 BUSUBI 7АЙ:”^55»»5%%» ьо 5265855 Росе 1/77 КОТАТЕ 

248 BOSUB В5@:'..................................]ү フカ ガブ 

250 Б050В 950: ..................................77849 77 

260 ' 

270 “---------------- カイ テテ ヒョウ シー -------------------- 

280 R=1:C=5:RESTORE:GOSUE 114й@:.....................рдТдЭ ヨミ ナオ ス 
290 LOCATE 0,0 

300 PRINT"X у77 77) ---›1" 

310 PRINT"Y 977 77) ---›2" 

320 PRINT"Z 77 977 ---›3" 

33@ LOCATE 9,4:INPUT" ト "ルー シッ スカ ";MENU 

340 ON MENU GOSUB 420,460,500 

350 RUTATE$(R) =R$:DEB(R) = ВЕБ: ‘еннен у キロ 7 ヨウ 
360 LHCATE 0,5: РКІМТ "ヒョウ シト ・・・>H カイ テリ ・・・BPACE ВАК"; 

37@ ИНІСНФ=ІМКЕҮФ: ІР WHICH$="" THEN 370 

580 IF WHICH$="H" OR WHICH$="h" THEN CLS:GOSUB 870:GOSUB 950: 60508 1389:END 
390 IF ASC(MHICH$) =&H29 THEN BOSUB 1360:R=R+1:GOTD 330 

400 GOTO 35@ 


41@ 
420 “------------- (972 カイ テッ ニュ ウリ ョ 2 -------------- 
430 ІМРИТ"?Э2СА "iDEBX:DEB=DEBX:R$="X":DEBX=DEBX*RAD 
440 BÜSUB 550:4............... ...  “.“....)4тУ ガイ サッ 
450 RETURN 

480 “------------- Үу"7 7472 ニュ ウリ ョ 2 -------------- 
470 INPUT" カ 7 ト "N “";DEBY:DEG=DEGY:R$="Y";DEGY=DEGY#RAD 
480 BDSUB 659:「・・・・・・・・・・・・ УЗ - < カイ テリ カイ サッ 
499 RETURN 

500 '------------- 1977 74%) 219087 -------------- 


510 ІМРИТ"Л2СА "iDEBZ:DEB=DE67:R$="7":DEB7=DEBZ*RAD 
520 GOSUB 750:7......-...................)47У) ケイ サリ 
530 RETURN 

540 ' 

550 '------------- (972 カイ テッ サイ サフ ---------------- 

| 580 FOR 1=@ TO 3 
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57@ RTY(I)=TY(I)*COS(DEGX)-TZ(I)*SIN(DEBX) 


580 RTZ(I)=TY(I)*#SIN(DEGX)+TZ(I)*COS(DEBX) 
590 ВОҮ (1) =0Ү (1) +С05 (рЕБХ) -07 (1) +51М(ПЕВХ) 
500 RDZ (I)=DY(I)*SIN(DEBX)+07 (1) +С05 (0ЕВХ) 
619 NEXT І 


520 カイ テッ % 6399 モト ノル イル 9 ニ モト ドス 

639 FOR I=0 TO 3:TY(ID=RTY(I):TZ(I)=RTZ(I):0Y(I)=ROY(I):0Z(I)=ROZ(I):NEXT 
540 RETURN 

れつ ピニン ニニ ュー デニ ры ШЕ ガイ 便り も エー ニジニ ニュ シー ニニ や ミキ デン デー 

560 FOR 1-0 TO З 

670 RTX(I)=TX(I)*COS(DEBY)+TZ(I)*SIN(DEGY) 


680 RTZ(I)=TZ(I)*COS(DE8Y)-TX(I)*#SIN(DEBY) 
690 RDX(I)=0X(I)*COS(DEBY)+DZ(I)*SIN(DEGY) 
700 RDZ1(I)=DZ(I)*#COS(DEBY)-DX(I)*SIN(DEBY) 
710 NEXT I 


728 “7472 サ " ヒ ョ ウ ヲ モト ノル イル 9 ニー ҰР 

739 FOR 1=@ TO 3:TX(I)=RTX(I):TZ(ID=RTZ(I):0X(I)=ROX(I):0Z(I)=R0Z(I):NEXT 
740 RETURN 

750 '------------- 19772 452 84%) ---------------- 

769 FOR I=Q TO 3 

770 RTX(I)=TX(I)*COS(DE6Z)-TY(I)*SIN(DEBZ) 


788 RTY(I)=TX(1I)*SIN(DE67)+TY(I)*COS(DEBZ) 
790 R0X(1)=0X(I)*C0S(DE67)-DY(I)*SIN(DEGZ) 
800 ROY(I)=0X(I)*SIN(DEB7)+OY(I)*C0S(DEGZ) 
810 NEXT I 


820 "カイ テッ 9`ta93 モト ノリ イル 9 ニ ЕМА 


830 FOR I=0 TO 3:TX(ID=RTX(ID :TY(I)D=RTY(I):DX(I)=ROX(1):DY(I)=RDY(I):NEXT 
840 RETURN 


850 

身上 ニン ニー ニニ ここ ジ ニニ ユニ ニニ つ コ 生 | ХҮ249091%5<55%6ЕЕ-С5С5--555--- 
870 FOR I=Q TQ 5 

880 TX(I)=TX(I)*(SD)/(SD+ZD-TZ(I)) 

890 ТҮ(1) =ТҮ(1) + (5р) / (50+2р-Т2 (1) ) 

900 0Х(1)-0Х (1) +050) / (60470-07 (1)) 

910 DY(I)=0Y(I)*(SD)/(SD+ZD-OZ(I)) 

920 NEXT I 

950 RETURN 

940 ' 

Ты Pay weta ауа шісі талын “Pe Ma 


950 FOR 1=0 TO 5 

970 TX(I)=TX(I)+X@:TY(I)=YQ-SY*TY(I) 
980 DX(I)=DX(I)+X@:0Y(I)=Y0-SY*OY(I) 
990 NEXT I 

1000 ' の が ミ - ノ すず 上 ョ 93 97% 

1010 TX(4)=TX(9@):TY(4)=TY(9) 

1020 0Х (4) =0Х (0) : 07 (4) -0Ү (0) 

1030 “77743 27 
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1040 FOR I=0 TO š 


1050 EONNECT(TX(I) ,TY(1))-(TX(I+1) ,TY(I+1)),C 
1й5@ СОММЕБТ(0ОХ(1),бҮ(1))-(0Х(1+1),0үҮ(1+1)),С 
1070 СОММЕБТ(0ОХ(1),бҮ(1))-(ТХ(1),ТҮ(1)),С 

1080 NEXT I 


1090 ЛАЛ” anus 

1100 СОММЕСТ(ТА(@),ТҮ(@))-(ТХ(2),ТҮ(2)),С 
111@ CONNECT(TX(3),TY(3))-(TX(1),TY(0(1)),C 
1120 RETURN 


1130 

ке. ыы ыы сы ды аслы ыы ыды Пата 24---5-%-------- 2. 
1150 FOR I=0 TO š 

1160 READ ТХ(1),ТҮ(І),Т7(1)9:7%%:4444-. ティ マ エア テッ 
1170 NEXT І 

1180 ' 

1190 FOR I=0@ TO š 

1200 READ DX(1I),DY(1),ÜZ(I); eae 49) テッ 


1210 NEXT I 
1220 RETURN 


123 


1240 メイ DATA <<7712> 


1250 DATA -150,-100 ,50: TX,TY,T2 Q 
1260 DATA 150,-100 ,50: ТХ,ТУ,Т2 1 
1270 DATA 150, 100, 50: ‘TX,TY,TZ 2 
1280 DATA -150, 100, 50: TX,TY,TZ 3 
1290 “7774 DATA <<( オ 2) >> 

1300 DATA -150,-100,-100: "0X,DY,07 Q 
1310 DATA 150,-100,-100: 'ОХ,0Ү,;02 1 
1320 DATA 150, 100,-100: DX,DY,0Z 2 
1330 DATA -150, 100,-100: 0Х,0У,07 3 


1340 

1350 スス ョ セー カッ 

1360 LOCATE 0,5:РКІМТ 5РАСЕ%(29);:БЕТИЕМ 

1370 カイ テッ キロ 9.7 ヒョウ シッ" 

1280 FOR І-і TO R 

1390 LOCATE 80,1 

1400 PRINT USING"#8#8.. «кел ####.##°"; 
1; КОТАТЕФ (1); ЕС (1) 

1410 МЕХТ 

1420 RETURN 
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グラ フィ ッ ク カ ー ソ ル の 基本 








* ま いろ いろ ある カー ソル の 
処理 命令 


жж 直線 と 四角 は 2 Ñ 
を その まま 利用 する 


* ネ *※* キ 2 点 を 使っ て 円 を 
描く に は 





R=SQR (А?--В?) 
A. 2 点 を 指定 し た 円 の 考え か た 


カー ソル (cursor) は , な に か を 読取 る た め の 指 標 と いっ た 意味 で 
テキ スト 画面 に つい て は LOCATE, POS, CSRLIN が 使わ れ , グラ 
フィ ッ ク 画 面 に 対し て は GCURSOR (graphic cursor) が 使わ れ ま 
+. GCURSOR の 基本 は 

GCURSOR (出力 位置 ), (読取 り 変 数 名 ) 

と いう 形 に を な り ま す . G カ ー ソ ル が 画面 に 出力 され た ら , カー ソル 移 
動 お よび シフ トキ ー を 使い , 目的 の 位置 まで 動か し , リタ ー ン キー を 
押す と , 指定 し た 変数 名 に その 位置 が 代入 され る も の で , 機能 と し て 
は ライ トペ ン に 通じ る も の で す . 


地 シ ジョブ 0 レブ ログ ラム は G カ ー ン ソン ル を 使っ て まず 適当 な どこ うろ に 平 丈 
字 の カー ソル を 出力 し ( 行 番号 140), リタ ー ン キー が 押さ れる と , 2 
の 位置 に 黄色 の 点 を 打ち ます ( 行 番号 150)0. つぎ に 画面 に 線 を 引く の 
か , 四角 を 作る の か , 円 を 描く の か を 求め ( 行 番号 170 一 190), つぎ に 
さき ほど 打っ た 点 か ら 少し 離れ た 位置 に ロカ ー ソ ル を 出し , も う ひ と 
つの 点 の 入力 を 待ち ます ( 行 番号 210)0. リタ ー ン キー が 押さ れ た ら , 
それ ぞ れ の 指定 ルー チン を 呼出 し , グラ フィ ックス を 実行 し て 終り ま 
294% 

LINE 文 は 指定 の 2 点 問 を 結ぶ も の で すし , 四角 も 同様 に 指定 し た 
2 点 を 対 角 と する も の で すか ら , この プロ グラ ム に お ける 2 つの 点 (X. 
Y ОУС) を そ の まま 使 づ ぐま い の ' で ず が 円 は と の まま で は 
描け ませ ん . 


指定 を し た 点 の うち (X, Y) を 中 心 と する 円 は , も う ひ と つの 指定 
点 (X1, Y1) が 円 周 上 に ある も の , と いう 前 提 の プロ グラ ム で すか ら , 
半径 を 計算 し な いと いけ な い の で す . 半径 は ピタ ゴラス の 定理 に よっ て 
半径 直角 三角 形 の 斜 辺 
で すか ら , ХИ, Y 座 標 の 線 分 (それ ぞ れ 直角 三角 形 の , 直角 を は 
さむ 2 つの 辺 の 長 さ き ) を も と め , 計算 に よっ て 求め る こと に な り ま す 
行 番号 330 が 半径 算出 の 文 で . それ ぞ れ の 座標 の х,у 線 分 か ら 半径 を 求 
め て いま す . な お , 画面 の タテ ヨコ 比 に 合せ た 係数 を 使い , 補正 を し 
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100 キオ ルオ せま まま ええ ます GCURSOR 1 スカ イブ 17 まま メメ ルオ オル ルル ルル ルル テテ ルルル 
| 119 SY=.43:WIDTH 80,25:CL5 

120 ‘ 

150 LOCATE 0,0: 60508 280 '................... їтї-у* SUB 

140 GCURSOR(3S00,100),(X,Y) ‘+... *・ RETURN” X,Y 9 も トメ 

150 PSET(X,Y,6) ‘наин е +4пт“ PSET 

160 ' 


170 LOCATE @0,@:PRINT"1:LINE 2:В0Х 3sCIRCLE ト " ル = Уял"; 
180 MENU$=INKEY$:IF MENU$="" THEN 180 
190 MENU=VAL (MENU$):IF MENU<1 OR MENU?3 THEN 180 


2@@ 60 (1 ФЕН е Д д, г, СЫ Ы a a 9 セージ " SUB 
210 GCURSOR(X+5,Y+5),(X1,Y1) ың... ...... RETURNT" X1,Y1 3 て トメ M 
92 ЕБПӘПЕ” ӨСЕ pt ест kasa ЖЕНЕШЕ оте Awt-u" SUE 


230 ON MENU BOSUB 310,320,330 
240 LOCATE 9,24:PRINT USINB"X=###:Y=W#W Х1=###:Ү1=###"Х;Ү;Х1;Ү1; 


260 РОК WAIT=@ ТО 6999:NEXT:CLS:BUTU 130 


280 LOCATE 45,0:PRINT"6CURSOR3 23` uy スキ ナナ トコ ロ 7* RETURN":RETURN 
290 LOCATE 0,0:РКІМТ STRINB$(78," "):RETURN 


310 LINE(X,Y)-(X1,Y1),PSET,6:RETURN 
320 LINE(X,Y)-(X1,Y1),PSET,6,B:RETURN 

330 R=SDR(ABSIX-X1)22+ABS((Y-Y1)/SY)22) '................ 2542 749) 
340 CIRCLE(X」Y) ,R,6,SY:PRESET(X,Y):RETURN 











た 円 を 描か せな いと いけ ませ ん . 


ネネ ※ ネ ネネ ※ そ の 他 の 注意 点 G カ ー ン ソル は 一 度 に 最大 10 点 まで の 座標 を 読み と る こと が で き , た 
と えば すでに 出力 され て いる グラ フィ ッ ク 画 面 の 点 を , つぎ つぎ と 読 


み と る こと も で きま す . ЖІ, な に か 自由 に 描き た い 図 形 が あっ た 時 
£, た めし に G カ ー ン ソル を 出力 し て そ の 座標 値 を 読み な が ら , お よそ 
| の 形 を 見 る こと も で きる わけ で す -. 
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グラ フィ ッ ク カ ー = wa 





終点 を 始点 に し て グラ フィ ッ ク カ ー ソ ル を 使っ て , 画面 上 に つぎ つぎ と 絵 を 描い て 
つぎ つぎ と 描く く プ ログ ラム を 作り ま ААС... ареном 


に し て , 連続 し て 絵 を 描く と 共に , ペイ ント も で きる よう に し て いま 
+. まず 行 番号 110 で 描き 始め の 点 XS, YS を きめ て , G カ ー ソ ル を 動 
か し , 最初 に リタ ー ン し た 点 に PSET し ます ( 行 番号 150). 

線 を 引く の か , 四角 か , 円 に する の か を 求め , つぎ に 何 色 に する か 
を 求め ( 行 番号 220 一 230), も う ひ と つの 点 を 入力 し た ら , さき いしょ 
の 点 は 消し て し まい ます ( 行 番号 250). この 処理 を 終え たら, 指定 の 
図形 を 描く サブ ルー チン を 呼び , 実行 し ます . 

つぎ は ペイ ント 作業 に な り ま す が , 線 を 引く モー ド を 選ん だ 時 は ペ 
イン ト し ませ ん の で , ペイ ント ルー チン を パス し て , 新しい 入力 を 求 
め る こと と に いし で いま すず |( 行 番号 270)。 ペ イン ド の だめ に は , どの 位置 
か ら ペ イン ト さ せる か を 命令 する 必要 が ある た め , も うい ち ど G カ ー 
ソル を 画面 に 出力 し , ペイ ント 点 XP, YP を 求め て いま す ( 行 番号 35 
0) 。 なお, この プロ グラ ヲ 胡 で は 四角 と 円 に つい て ペイ ント し ます が , 
で き あ が っ て ゆく 絵 を 自由 に ペイ ント する た め に は , た と えば ペイ ン 
トル ー チ ン を 単独 に 設定 し て も いい で し ょ う . 

画面 上 に つぎ つぎ と 絵 を 描く た め に , ひと つの 絵 を 描い た ら , 終点 
(ХР, YP ま た は X1, Ү1) を 始点 に 変え て いま す ( 行 番号 390, 410). 


rq Ru КЕТЕН PAINT 5223 Y...) N. SPACE MR 


КҮ 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
308 
510 
328 
3530 
340 
350 
360 
370 
380 
390 
499 
410 
420 
430 
440 
450 
460 
470 


480 ' 


490 
500 
510 
520 
530 
540 


"+++ ++ +++ +++ ыы BLURSHR 2 27843 UU" йт Nh) хз +++ + +++ +++ а +++ 
6Y=. 43: XS= さ 99:YS=199:MIDTH 80,25:CLS 

LOCATE 0,0: 60508 450 ‘••... +... '+++34ңў-у` SUB 
BCURSDR/18 /Y9) с (X Y), の の TTP е аја RETURN7" Х,У 3 ҰМ 
PSET(X,Y,6) еннен .......-.- ss seeea "$407" FSET 
ーー ニー エー ニス っ) で つ ド で k Улы лс 222222222... жізікікінішінілікнншен 
LOCATE @,@:PRINT"1:LINE 2:BDX 3sCIRCLE k'ila 2940"; 


MENU$=INKEY$:IF MENU$="" THEN 180 

MENU=VAL (MENU$) : IF MENUX1 OR MENU>3 THEN 180 

BOSUR 450 `'....... . ааазааазовааа в ...... セー SUR 
б----------------------- 402 %297 --------------------------------- 
LOCATE 0,1: 1МРОТ"40л 7-40 ";C$:C=VAL(C$) 

IF C<@ DR C>7 THEN 220 

BCURSDR(X,Y), (X1,Y1) に ドド rrrRETURN テ " Х1,Ү1 3 th2k 
РКЕЅЕТ(Х,Ү) ,шғг2246%%в вво ов аоаезаа асв га 942331 409 74 

ON MENU GOSUB 490,510,530 '..............у74 27749 77 

IF MENU=1 THEN 410 “еен ГІМЕ 777" PAINT ñ MZ 
BOSUB 2469 ーー カッ SUB 
б---------------------- PAINT 229087 ------------------------------ 
LOCATE 9,9:PRINT"PAINT 9717 Y・・・>Y М.,.5РАСЕ BAR" 

P$=INKEY$:IF Р%="" THEN 310 

IF ASC(P$)=&H29 THEN 410 ELSE IF P$="Y" OR P$="y" THEN 520 ELSE 310 
LOCATE @, 1: ІМРОТ"40л 7240) СР%:ЕР-УАІ (СРӨ) 

IF СР<@ OR CP>7 THEN 530 

BCEURSOR(X1,Y1) ,(XP,YP) 

GOSUB 450 е оввевеосеовевавововавзоовавоаз вее Зи)" GUR 
РАІМТ (ХР, ҮР) ,СР,С ドド ドド ドド つの ッッ РАТАТ 


Х5= ХР: ҮЅ=ҮР: 6070 420 ‘+... аан.  BCURSOR3 97" 2453 キメ ル 


XS=X1:YS=Y1 б.о енене е BCURSDR3 977499 キメ ル 
GOSUB 460: 50Т0 130 


* ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ササ" カー チリ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
LOCATE 45,0: РКІМТ" БСОКЅОКЭ 917Лу7 メス キナ ト コロ テ ” RETURN":RETURN 
LUCATE 0, а: PRINT 5ТКІМб% (159, " ") : КЕТОКМ 


LINE 


LINE(X,Y)-(X1,Y1),PSET,C:RETURN 
вох 
LINE(X,Y)-(X1,Y1) ,PSET,C,B:RETURN 
' CIRCLE 
R=SDR(ABS(X-X1)^2+AB8((Y-Y1)78Y) ^2) ドド ッッ ドッ ッッ ッッッ ーー ・ リ フサ イノ 7493 
СІКСІЕ (XY) ,R,C,SY:RETURN 
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カラ ー バ パレ ッ ト の 使い か た 





* カ ラー パレ ッ ト と カラ ー 
тт; 





パレ ッ ト に 絵具 を お いて ゆく 


ネネ ※ 人 色 を つぎ つぎ と 変え る 





人 る 右 の プロ グラ ム の 実行 例 





V 3.0 以 降 の F-BASIC で は , 色 の 処理 に つい て パレ ッ ト と いう 考え 
方 を 導入 し て いま す . (palette) は 絵具 を し ぼり 出し て の せ 
て お く 板 の こと で す が , 絵具 を 入れ る 場所 は 8 つ あ り , それ ぞ れ 0 一 
7 まで の 番号 が つけ られ て いま す . この うち 0 番 は 黒 し か 受け つけ な 
い の で , 実質 は 1 一 7 番 ま で の パレ ッ ト 番 号 (コー ド ) に , 好き な 人 色 
を 指定 する こと が で きま す . 


ノ パパ レッ ト 


さて, パレ ッ ト と は 別に カラ ー コ ー ド が あり , FM-77 で 使え る 8 色 
は 以下 の よう に 定義 きれ て いま す . 

0 ……… ЕН 1 ………・ 青 2...... д Дз シア ォ ン , (28) 

4 …… 緑 Бары 水色 -6--- = Тт. А 


光 の 3 原色 は R・G・B で , カラ ー コ ー ド の 順 か らい うと B・R・G… 
の 守り 2 いい の 組合 せ ほ りり お すす 3「 に の 90 の SS いれ ば ) 
1+2=( +) = (3), 1 十 4 =( 青 十 緑 ) = 水色 (5) な ど , 原色 を 
合成 し た 色 が 何 色 で どの コー ド か が すぐ に 分 り ま す . 

サン プル プロ グラ ム は B・R・G の 3 つの 画面 を まず 単独 で 操作 し 
た の ち , 同時 に 出力 する も の で , いま 話し た 色 の 関係 が よく 《 分 り ま す . 


カラ ー パ レッ ト の 操作 は , 
め る こと で すか ら , 基本 的 に は 単純 な も の で す . 
ム の 行 番 号 220 を 


у ызы АЙ БЫ КАБ ул с izu зи С 15 


к 7 п э 





100 
110 
120 
130 
140 
150 
160 
170 
| 180 
190 
200 
210 SEREEN 7,7: 3Л7297 bk y9" UN 
220 BHTU 22 


“жұз スガ リッ コリ hk 35904 жы 
CLS 

SCREEN 1, tsa: BLUE が メッ ON 
СІКСІЕ(220,130),140,,,,,Ғ 


SCREEN 2,2:° B` al ON 
CIRCLE(380,130),140,,,,,F 
SCREEN 4,4:'......б6ВЕЕМ л" х DN 
СІКСІЕ(300,70),140,,,,,Ғ 
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220 FOR I=1 TO 7: COLOR= (1,7) : NEXT 

に 変え る と , 3 つの 円 は すべ て 自 い 色 に な り ま す . すべ て の パレ ッ ト 
コー ド に 白い 色 の 7 を 指定 し た か ら で す . 元 に 戻す に は 

FOR I=1 TO 7: COLOR= (1,1) : NEXT 

と し ます . 下 の サ ンプ ル は パレ ッ ト に 色 を あて は め て ゆく 2 つの 例 を 
示し て いま す . 実際 に 試し て その 効果 を 見 て くだ さい . 





100 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 朋 ラ うー)" ルト / ソリ ウサ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
110 X0=300:Y0=100:SY=.43 

128-8060, 6882005. t 26 D.S “РЕЛЕ ЕТЕКТІ ° 99 リョ キチ - モト " ス SUB 
150 “жж Фо 27743 Ip"? 

140 С15 

150 С=1 


180 FOR PAI=9 TD 2*3.14 STEP 2%3.14/7 

179 X=X0+120*#COS(PAI):Y=Y0-120*SY*SIN(PAI): +... I2913I9 392 I23 イチ 
180 CIRCLE (Х,Ү),4@,С,,,,Е:',..+..............д0%7°у/ 139 ІЛ" 7 
190 C=C+1:IF C=8 THEN 220: ............ 4........7%9/ I23 7499 974917 
200 NEXT РАІ 

219 ' 

220 FOR 1=1 TD 7:CULOR=(I,7):NEXT: ‘е.а ее 25" 2403 リロ ニス ル 

230 MHILE KAISU<59 

240 “**** N° behl 

250 FÜR I=1 TO 7:1Е 1-7 THEN C=9 ELSE C=I 


20 COLOR=(I,C) リト ッッ トト ッッ ッッ ッッ レト ドッ し ここ 4444444 зуб ууй од 79 ノイ 4 ロニ スル 
27@ FOR Т=й TO BO:NEXT Т:'.....................у* офа ое 

280 NEXT I 

290 ' 


500 РОВ Ізі TO 7:С010К-(1,7):МЕХТ:”““%.ы:ңңңңң 247 テ ノ イ ロブ ロニ スル 

510 KAISU=KAISU+1 

329 MEND 

339 ' 

340 BOSUB 48й0::...:-ы............... жаза абы; 4...,%)еҚ9 リョ キチ 2 モト "2 ス SUB 
350 “жен リリ ル ョ ト 2 

360 С=1 

370 MHILE KAISU く 1099 

389 FOR I=1 TO 7 


390 C=(C MOD 7)%1:7%.7.2.%5....2...........4.44.)% ルッ トリ 97 
400 FOR Т-й ТО 20: МЕХТ Ti: に < ーーー バジ "カッ チョ ウ セ イ 
420 COLOR=(I,C) ененнен ена yh 9975 


450 МЕХТ 1 

440 C=C+1:KAISU=KAISU+1 

450 WEND 

469 END 

478 ” 

480 FOR Ігі TO 7:CODLOR=(I,I):NEXT 
490 RETURN 


TI 
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VRAM と F-BASIC に お ける 操作 


* VRAM と は FM-77 に は ディ スプ レイ に 出力 する た め の 映 像 情報 を 扱う 専用 の メ 
モリ が , メイ ン メ モリ と は 別に 用 意 き れ て いま す . VRAM (ブイ ラム 
・ Video 用 Random Access Memory) と 呼ば れる も の で , 合計 で 48 
КОТАРА ОКУ, 

ディ スプ レイ の ドッ ト (m) は , 横 が 640 個 , #152005 50 С, 
合計 で は 128,000 個 に な り ま す . た だ し この 数 は ディ スプ レイ が モノ ク 
о (単色) の 時 で , FM-77 の よう に 光 の 3 原色 (B・R・G) に 対応 
し て いる も の で は , B 用 に も , R 用 に も , G 用 に も 128,000 個 分 の ドッ 
F を 点灯 する た め の メ モリ が 必要 に な り , けっ きょく 128.000X3 = 
384,000 個 分 の メモ リ が 必要 に な り ま す . 

ひと つの ドッ ト を 点灯 きせ る た め に 1 ビッ ト が 使わ れる の で , ビデ 
ォ 用 RAM は 48.000 バ イト (384.000 二 8) に を る の で す . 








ネネ 3 種類 の VRAM を これ ら の メモ リ が , た と えば R 用 の メモ リ が ディ スプ レイ の R 入 力 
コン トロ ー ル 端子 に 直結 され て いる と し た ら , BASIC に よる 操作 は 赤い 点 を 光ら せ 
る か , 光ら せな いか だ け に な り ま す . と ころ が 実際 の F-BASIC (V 
3.0) で は , これ ら の R・B・G 用 の メモ リ と ディ スプ レイ 出力 と を 直 
結 き せ ず , いろ いろ な 形 で コン トロ ー ル し て いま す . 
カラ ー パ レッ ト も その 例 で , パレ ッ ト 番 号 と カラ ー コ ー ド の 組合 せ 
も , 実は VRAM を 操作 し て いる の で す . 
COLOR= (5, 1) 
と いう 文 は , COLOR5 と いう 命令 が 与え られ る と , В (1 が 割当 て 
られ て いる ) の VRAM か ら の 映像 用 情報 を 取出 し て , ディ スプ レイ に 
出力 する こと を 意味 し ます . 同様 に 
SCREEN 3,5 
は B(1) 用 と R (2) 用 の VRAM に 書込み を し て , ディ スプ レイ へ の 出 
ІВ (1) 用 と G(4) 用 の VRAM か ら , と 設定 し ます . 
その ほか , LINE 文 や CIRCLE 文 その 他 の グラ フィ ッ ク 命 令 に お け 
る 論理 演算 機能 も 同じ で , 指定 し た 色 と , 画面 に 出力 され て いる ドッ 
ト の パレ ッ ト 番 号 を 演算 し て , その 結果 の 色 で ディ スプ レイ を する の 
€. 





クラ シイ ルク a 


進ん だ 使い か た 
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GET@ と 配列 の 大 き さ 


*GET@ の 使い か た CET@ は VRAM に 書 込 ま れ て いる 情報 を 取出 し て , プロ グラ ム 用 の 
メモ リ に 移す 作業 で す . ふつ う の グ ラフ ィ ッ クス で は , た と えば 円 を 
描い た り , ペイ ント する の に ある 程度 の 時 間 が か か る の に 対し , СЕ 
エ @② し た も の を PUT@ す る と , 瞬時 に グラ フィ ックス が 再現 で きる 利 
点 が あり ます . し た が っ て GET@⑨, PUT@ の 使い 方 と し て で は つぎ の よ 
うな こと が 考え られ ます ・ 
〇 同じ パタ ー ン を , 多く の 場所 に 出力 する 時 
O 〇 テア ニメーション の よう に , 動く 絵 を 出力 する 時 
O 〇 グラ フィ ックス を ディ スケ ッ ト に 収め る 時 
S トラ ンプ や マー ジャ ン ゲ ー ム その他 , 各種 の パタ ー ン を 出力 する 時 








**GET@ と 4 つの 形式 сете, PUT@ に は 4 つの 形式 が あり , 目的 に よっ て 使い 分 け ま 

す が , まず その 形式 を 見 まし ょ う . GET@ は 

形式 1 キャ ラク タ を メモ リ に 移す ( 色 は テキ スト 画面 と 同じ ) 
GET@ (座標 ) , 配列 名 

形式 2 キャ ラク タ と 色 の 情報 (パレ ッ ト 情 報 ) を メモ リ に 移す 
GET@A (座標 ) , 配列 名 

形式 3 ドッ トバ パタ ー ン と 選択 する 色 を 指定 し て メモ リ に 移す 
GET@ (座標 ) , 配列 名 , G, パレ ッ ト コ ー ド , … 

形式 4 ドッ ト パ タ ー ン を フル カラ ー で メモ リ に 移す 
GET@ A (座標 ) , 配列 名 , G 

この 形式 を 見 て 気がつく こと は , アル ファ ベッ ト の A と G の 使い 方 で 


A : オー ル (all) と いっ た 意味 で , パレ ッ ト コ ・ ド の 情報 も いっ し ょ 
{сл АРУ е 
CGC・ グ ラフ ィ ッ クス と いっ た 意味 で 。 Еу! の 情報 (G が つか な いも 
の は ほ は キャ ラク タコ ー ド 情報 ) を メモ モリ さ 入れ る . 
жы, これ ら の 4 つの 使い わけ ILV SV IEE D ë+ A. た だ し 用 
ж-з» х=!) (配列 ) は 形式 4 КШ Д0. メモ リ が 多 
く て も よい の な ら , T Қате КІ W 2 の 代用 … キ ャ ラク 
タ を 配列 に と りこ むこ と も で きる の で 1 7177 配列 は すべ て 整数 型 
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で よい の で , GET@ の と き は 常に 整数 型 を 使う よう に し ます . 


*※※*※ 必 要 な 配列 の 大 き さ GET@ す る と き に は 配列 を あら か じ め 用 意 し な けれ ば いけ ませ ん . 
に つい て た と えば 1 キャ ラク タ を GET@ す る の に 「DIM GC(500)」 と し て も 
よい の で す が , これ で は 用 意 す る 配列 が 大 きす ぎ て , ムダ に な り ま す . 
お よそ の 目印 と し て は , 整数 型 で は 
形式 1 GET@ す る 文字 数 に 1 を 加え て , 2 で 割る 
形式 2 形式 1 の 2 倍 
形式 3 GET@ す る 面積 を 16 で 割り , 8 一 20 を 加え る 
Жақа 形式 3 の 3 倍 
に な り ま す ( 正 確 を 計算 法 は マニ ュ ア テル を 参照 ) . 
下 の プ ログ ラム は 四角 を 描き , その 中 に 円 が いく つか あっ て , 中 が 
くり ぬか れ て いる 図形 を GET@, PUT@ す る 例 で す . ここ で は 形式 
3 の , パレ ッ ト コ ー ド 指定 形 の GET@ を 使い まし た . 
GET@ す る 範囲 は (0,0) か ら (X, Y) と し ます . する と 用 意 す べき 
GET@ 用 の 配列 は 行 番号 120 に な り ま す . ここ で は 最後 に 20 を 加え て 
いま す が , 8, 16, 20 な ど と , いく つか の 異な る 数 値 を 加え て , 試し 
て くだ さい . な お 配列 要素 が 小さ い 時 は , 一 般 の 配列 時 の エラ ー メ ッ 
セー ジ (Subscript Out Of Range) で は な く , イリ ー ガ ル ・ フ ァ ン 
лах а Е ОЛОО F aan 
行 番号 200 で GET@ す る の は パレ ッ ト コ ー ド 1 (ここ で は 青 ) だ け を 
指定 し て いる の で , 行 番号 160, 1700, 5 番 の パレ ッ ト コ ー ド に よる 
9; (ここ で は 円 ) は 配列 に は 取 込 ま れ ま せん . 出力 は 行 番号 210 で , 
3 番 の パレ ッ ト コ ー ド (Ж) を 使っ て いま す 。 





100 '" ニ ニニ ニニ ニニ ニニ ニニ ニ = БЕТӘ + カイ シキ 3 # ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


110 Х=200:Ү=80:° +... а.е ・ ッ メッ セキ 7192697 63232 
120 H=INT((X#Y)/16)+29:DIM G1Z(H): ‘ H= ル イル リ ヨ ウ リ ヌ ウ 


140 の" フ メ "3 іт? 

150 MIDTH 80,25:С16 

169 СІКСІЕ(100,20),15,5:СІНСІЕ(150,20),18,5 

179 CIRCLE(120,60),15,5:CIRCLE(170,55),18,5 

189 LINE(0,0)-(X,Y),PSET,1,B:PAINT(1,1),1,5 

ム 右 の プロ グラ ム の 実行 例 190 ' 

200 бЕТ@(@,@й)-(Х,Ү),В17,6,1:'++..,..+,..,719+3 2 BET@ 
210 РОТЕ (500,100) – (300+Х,100+Ү) ,617,РЅЕТ, 3: +... РИТЕ 
230 LOCATE 0,24: РКІМТ"Л4/У39Ул9="; Н; 

240 БОТО 240 
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GET@ と デー タ の SAVE 


* ひ と つの 絵 か ら 異な る GET@, PUT@ は , 1 対 1 の 対応 を 正しく 守る と 元 の 絵 が その ま 

も の を 作る に は ま メ モリ に 取 込 ま れ ま す が , GET@/PUT@ の 順序 を 変え る こと で , 
元 と は 異な っ た パタ ー ン の も の も 作成 可能 で す . その 例 と し て 乱数 を 
使っ て 作っ た 塗り つぶ し の 四角 か ら , 合計 4 つの パタ ー ン を 作成 し , 
画面 いっ ぱい に 展開 する カレ イド スコ ー プ (ЭЖ) を 考え まし ょ う . 
ここ で は 軸 対 称 (Хан, Үйі) と 点 対称 の 3 つの パタ ー ン を プロ グラ ム 
の 上 で 作り ます . その 原理 は GET@ す る 順序 を 変え る と いう , 簡単 な 
も の で す . FOR 一 NEXT の 2 重 ル ー プ を 使い , 1 点 1 点 を GET@, Р 
UT@ し , それ を ひと まとめ に し て GET@ し ます . 








※※ ネ ノ パターン デ ー タ を 1 点 1 点 の 操作 で すか ら 完 成 ま で に 少し 時 間 が か か る の で , RUN さ 
ファ イル に 収め る せ た あ と , し ば らく し て か ら 画 面 に は きれ いな 模様 が 出 ま す . この パ 


ター ン を ディ スケ ッ ト に 収め て お いて , 数 秒間 待つ だ け で カレ イド ス 
コー プ が 再現 で きる よう に し まし ょ う . 下 の プ ログ ラム は 再現 用 で , 
右 の プロ グラ ム が 作成 用 に な っ て いま す . 

ここ で は シー ケン シャ ルフ ァイル を 使い , GET@ 用 の 配列 要素 数 
(変数 DATNUM) と , 図形 (変数 は LG) の デー タ を 記録 し て いま す . 
この プロ グラ ム の 場合 , ドッ ト 数 は 約 1.000 個 で す が , 形式 4 を 使う た 
め , メモ リ を か を な り 用 意 し て いる こと も あっ て , 4 クラ スタ ほど を 使 
っ て SAVE し て いま す . GET(@⑯ す る 面積 が 広く な れ ば SAVE, LOAD 
に 時 間 が か か る と 共に , ディ スケ ッ ト も 多く の 部 分 を 使う の で , ほど 
^ ム ディ スプ レイ 例 ほど の GET( を 考え る 方 が よい で し ょ う . 








100 “кекете жена ET 75-99 1 +++++ +++ ке е +++ 
120 DEFINT 人 A-7:INPUT "ファ ゴル メイ リュ FL 

130 OPEN"I",#1,"0@:6T@"+FL$:INPUT #1,DATNUM 

150 DIM LG(DATNUM) :FUR I=@ TÜ DATNUM:INPUT #1,LB(I):NEXT 
160 CLOSE 

170 ' 

180 CLS 

190 FOR РҮ-й TO 158 STEP 46:ҒОК FX=29 TO 520 STEP 100 
200 PUT@a(PX。PY)-(PX+199,PY+46) ,LG,PSET 

210 NEXT РХ,РҮ 
作成 し た パタ ー ン を 読出 し デル 220 БОТО 220 

ィ ス プレ イ す る ブロ グラ ム 

















370 


390 
400 
410 
420 
450 
440 
450 


460 
470 
480 
490 
5@@ 
51@ 


52@ 
530 
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ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = BET@ PUT@ h 94239 2774 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
DEFINT А-7:Х-50:Ү-253:Н-іІМТ(3%(ХЖҮ)/16) 418: 1М SB(H) ,Р6(3) ,LB(H4+20) 
КЕМ 5G=SMALL BET@:PB=PHINT BET@:LB=LARBE GET@ 


ーー ニー ニ ピ コー ヤ ピ ニニ ニニ テー ニュ ュー エニー 選 と ニニ ニー ニテ ェ АЕ ЕЕЕ -----------------<:-3 
ВЕТА (0,0) -(Х,Ү) ,56,6: РШТЕА (200,50) – (200+ ,50+Ү) ,56,Р5ЕТ 
“------------------------ Үн"22 940897 2774 ------------------------------- 


FOR GY=Q TO Y:FOR BX=X TO 9 STEP -1 
BET@A(BX,BY)-(BX,BY) ,Рб,6 
PUTeA(399-BX,59+BY) - (399-BX,59+BY) ,PB,PSET 
NEXT BX。BY 
"ーーーーーーーーーーーーーーーーーーーーーーーー X92192 9 イジ ョ ウナ 2774 ------------------------------ 
FOR BY=Y TO @ STEP -1:FOR BX=9 ТО X 
BETeA(BX,BY)-(BX,BY) ,PB,B 
PUT@A(299+BX,98-BY) – (200+6Х,98-6Ү) ,Рб,Р5ЕТ 
NEXT BX,BY 
"ーーーーーーーーーーーーーーーーーーーーーーーーー +09439 27774 ---------------------------------- 
FOR BY=Y TO 0 STEP -1:FOR BX=X TO Й STEP -1 


GETeA(BX』BY)-(BX」BY) ,PG,B 
РИТвА(300-6Х,98-БҮ)-(300-6Х,98-6Ү) ,PB,PSET 
NEXT 6Х,6Ү 
ほえ メメ ミネ ミネ メ ミ ネ ミ ミ ミミ ミミ テ メ メ ミネ メ メメ ミコ うし た り ル 有る JE E ま ええ ええ た る る さる る える る る る るる る る まる る るる よる る る は 
GET@A(200,50)-(300,96),L6,6:CLS 
FOR РҮ=@ TO 138 STEP 46:FUR РХ=2@ TO 520 STEP 100 
PUT@A(PX,PY)-(PX+100,PY+46),LG6,PSET 


ニニ ニー ニニ ニニ こら ニニ ニニ デニ ラー ニー ジニ ニーー 77-52. ファイ 見 用 キ コム -----еса-З еттен ти аннын» 
LOCATE й,24:РКІМТ"5АУЕУ77Л Y ог N "; 

YN*=INKEY$:IF YN$="" THEN 390 

IF ҮМФ-"М" OR YN$="n" THEN LOCATE 0,24:РКІМТ STRINB$(20," ");:60Т0 460 
IF ҮМ%-"Ү" OR YN$="y" THEN 420 ELSE 580 

(0САТЕ 0,24: ІМРОТ" 274024 (52° 474) "РЕФ 

ОРЕМ"0", #1, "0: БТе"+Е1%: ПАТМОМ=Нж#4+20: ‘+... еее онг ・ リロ イ ルリ ヨウ リス ウ 
PRINT #1.DATNUME「・・・・ ッ ーー・ „клан еа» LLP sassa... ..... 4UU903993 カキ コム 
FOR I=Q TO DATNUM:PRINT #1,LB(I):NEXT:CLOSE:LDCATE @,24:PRINT"SAVE END 


BOTO 469 


"жж RANNDOM 7774 
CLS:IF ТІМЕ>30000 THEN ТІМЕФ= "06: 00: 00" 
КАМООМІЈЕ TIME 
FOR 1-і ТО 199:X1=INT(RND*52):Y1=INT(RND*29) : Х2=1МТ (КМОЖ20) :Y2=INT(RND*9) 
iC=INT(RND*7+1)』LINE(X1。Y1)-(X14X2。Y1+Y2) ,РЅЕТ,С, ВЕ: МЕХТ 
СОММЕСТ (14,1) - (35,1) - (48,7) - (48,16) - (35,22) - (14,22) - (2,16) - (2,7) -(14,1),0 
RETURN 
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人 4 つの キー で ロケ ッ ト を 動か す 








*※* ま いろ いろ ある アニ ル 化 
の 手法 


KSXORA( エ クス クル ー シ プ ・ オ ア ) で 
重ね た 絵 は 。 カラ ー パ レッ ト が 0 に な 
る の で , 見かけ 上 消 を て し まう 店 も う 
いち ど 重 ね る と , つぎ は 元 の 色 に も ど 
る の で , アニ メー ショ ン の 強力 な 武器 
に な る 


* ネ ロケ ッ ト と 4 つの 次 
勢 の 作り か た 


アニ メー ショ ン の 基本 は 絵 を 描き , それ を 消し た ら 別 の 位置 へ また 
絵 を 描き , 消す …… а Оа) ар =u 
ДЕТИ АО 5157644; 

〇 キャラ クタ の 組合 せ (文字 列 操作 ) 

OCIRCLE や LINE な どの グラ フィ ッ ク 命 令 

OGET@, PUT(@ 

〇 カラ ー パ レッ ト 操 作 

な ど が あり ます . どの よう な アニ メ に する か に より 使う 命令 は 変わ っ 
て きま す が , 絵 を 描く 時 間 が 長い と アニ メ に は 見 えな い の で ,「 描 く ・ 
消す 」 が 有 瞬時 に 行 を われ な けれ ば いけ ませ ん . 

F-BASIC に は PUT@ や LINE な どの 命令 に XOR な ど が 使え る た め , 
絵 を 消す の も 合理 的 で すか ら , アニ メ の 大 半 は GET@, PUT@ で 処 
理 で き , 時 間 的 に も 早く , 有利 で す . 


アニ メ の 手始め と し て , 小さ な ロケ ッ ト を 作り , それ を PUT@ し て , 
画面 上 で 動か し まし ょ う . この プロ グラ ム で は ロケ ッ ト を 4 つの 姿勢 
に し て , 4 つの カー ン ソル 移動 キー に より , 上 下 左右 に 進ま せ て いま す . 
まず ロケ ッ ト を ひと つ , 上 向き に し て 作り ます . 座標 は 数 学 的 を も の 
に し , Y 軸 に 対称 な も の と し まし た . 平面 図形 の 回 転 と 同じ 手法 で , 
05 905 1805 270° と それ ぞ れ の 絵 を 描き , G1 一 G4 の 配列 に GET@ 
Баз. 

ロケ ッ ト は まず XS, YS の 座標 を 基準 に し て , 上 向き の も の を 出力 

し ( 行 番号 210), カー ソル キー に よっ て それ ぞ れ の ルー チン へ 飛ぶ よ 
うに し て いま す . な お 1 回 の キー 入力 で , 攻 方 向 人 は 8 ドット, ҮЗ 
向 べ へ は 4 ドット 分 進む よう に し て いま す が , スピ ー ド 感 を 増し た か っ 
た ら , “ОҚУККХ ЖАЯ СІМ ЕЕ 2. 
な お , この ロケ ッ ト は 燃料 噴射 の パタ ー ン を 赤 で ペイ ント し て いま 
す が , 回 転 計算 と 共に ペイ ント 位置 が 変わ る の で 注意 深く プロ グラ ム 
を 作る 必要 が あり ます . ここ で は ペイ ント 位置 指定 用 に 独立 し た 座標 
ИЖ ОЕТ, СУ КОҢ ое и, Z ue t k iz L 
て ゲー ム を 作っ た りす る と , さら に 楽し いも の に な り ま す 











100 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ H グ ケト ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
119 『 +** カー リル KEY 77 ロカ ョ トコ 4 49192 コリ ト ロー ル %## 

120 DIN 817(150),52%(150),557(150),547(150),Х(21),Ү(21),ХК(21),ҮК(21) 

130 РА1=5.14159:5Ү=, 43: Х0=200: Ү=100: Х5=300: Ү5=150:нІрТНВӨ, 25: С 

140 FOR Ісі TO 21:КЕАр Х(1),Ү(1):МЕХТ: “,..44.............. a カト 9" ヒョウ リノ ヨミ コミ 

150 “--------------------- 49) カイ テ フ 27749 92) БЕТЕ スル ------------------------- 
150 КАр=@: 60508 450: 60506 460: БЕТА (Х@-12,Үй) – (Х0+12,Ү0+25) ,617,6:С15: UP 

170 КАр=, 5жРАІ: 50508 450: 50508 40: БЕТА (Х0,Ү0-5) – (Х0+56,Ү0+5) ,627,6:С15: L 

180 КАР=РАІ: 60508 450: 60508 400: БЕТЕА (Х0-12,Ү0) – (Х0+12,Ү0-25) 637 ,6:С15: DOWN 
190 RAD=1.5*FAI:GHSUBE 450: 605068 460: БЕТЕА(Х0-56,Үй-5)-(Х0,Үй%5),547,6: 015: R 

200 “--------------------------- ロカ ョ トノ 999 ------------------------------------ 

210 РИТ@А(Х5,Ү8)-(Х5+24,ү5+25),617,Р5ЕТ 

220 SEIBYO*$=INKEY$:IF SEIBYU$="" THEN 220 

230 IF SEIBYU$=CEHRE$(&HIE) THEN GOSUR 440:6070 280: DP 

240 IF SEIBYD$=CHR$*$(&H1F) THEN BOSUB 440:60TO 320: 'DOMN 

250 IF SEIBYO$*=CHR$(&H1C) THEN BDSUB 440:6070 350: RIGHT 

260 IF SEISYOD*$=CHR%(%#H1D) THEN BOSUB 440:60Т0 400: LEFT 

270 '++++ UP 

280 PUT@A(XS,YS)-(XS+24,YS+25),612,PSET:PUT@A(XS,YS)-(XS+24,YS+25),B17,XDR 

290 YS=YS-4:IF YS<30 THEN Ү5-30:%,............ бекас, ノイ チコ カイ サテ 

500 IF INKEY$=CHR$(&H1E) THEN 280 ELSE РИТеЕА (Х5,Ү5) – (Х5+24,Ү5+25) ‚617 ,РБЕТ: БОТО 
220 

510 '++++ DOWN 

320 PUT@A(XS,YS-25)-(XS+24,YS),632,PSET:PUT@A(XS,YS-25)-(XS+24,YS),6372,XOR 

350 YS=YS+4:IF Ү5>100 THEN Ү5-160:%........................... 7%“) 4#3 イチ ガイ サッ 
340 IF INKEY$=EHR$(&H1F) THEN 320 ELSE РИТЕА(Х5,Ү5-25)-(Х5%24,Ү5),685%,Р5ЕТ:80Т0 
220 

350 “жж RIGHT 

360 PUT@A(XS,Y8)-(XS+56,YS+10),84Z,PSET:PUT@A(XS,YS)-(XS+56,YS+10),647,X0R 

370 Х5=Х5+8:1Р Х5>580 THEN Х5=58@:'.................. .4.......%Ж) 439 74%) 

380 IF ІМКЕҮФ=СНЕФ (НІС) THEN 360 ELSE РИТвеА(Х5,Ү5)-(Х5%50,Ү5%10),647,Р5ЕТ:6070 
220 

390 “жж LEFT 

400 РИТЕА (Х5,Ү5) – (XS+56,YS+19) ‚627, ,РЅЕТ: РОТЕА (Х5,Ү5) – (Х5+56,15+10) , 627, ХОБ 

410 Х5-Х5-8:ІҒ XS<60 THEN Х5=6@:'..........................ь 44947) 439 カイ サッ 

420 IF INKEY$=CHR$(&H1D) THEN 400 ELSE РИТеА (Х5,Ү5) ~ (Х5+56,Ү5+10) 627, РЕТ: БОТО 
220 


430 “--------------------------- SURRDUTINES ---------------------------------. 

440 LINE(XS-56,YS-25)-(XS+56,YS+25),PSET,W,BF:RETURN: -............ ・ ス "イノ リョ ウキ ョ 

450 FOR 1=1 TO 21:XR(I)=X(1)*COS(RAD)-Y(I)*SIN(RAD) :YR(I)=X(I)*SIN(RAD)+Y(I)xCDS 
(Кар) : ХЕСТ) =X@+XR(I):YR(I)=Y9-SY*YR(T):NEXT:RETURNE еен 02472 カイ サッ 


460 FOR Ізі TO 12:С0ММЕСТ(ХЕ(1),ҮК(1))-(ХК(ІЗІ),ҮК(ІЗ1)),7:МЕХТ: 「・・・ ロ 79 ト 
470 FDR I=14 TH 19: СОММЕСТ СХЕ (1) YR(I))-(XR(I+1) ,YR(T+1) ) ,2:NEXT:PAINT(XR(21) ҮК 


(21)),2:ВЕТИВЕМ:',.......... フト PAINT 
480 DATA 0,0, 8,-12, 8,-32, 12,-38, 12,-48, 5,-42, 9,-49:「 ロ 79 ト 
490 DATA -5,-42, -12,-48, -12,-38, -8,-32, -6,-12, р,0:” ロ 79 ト 


500 DATA 0,-40, 5,-45, 5,-50, 0,-55, -5,-50, -5,-45, 0,-40: 7уу% 
510 DATA 0,-43 : РАІМТ 49 
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空中 ブラ ンコ で 遊ぶ МАРЫ Ы Т 


*5 つ の 絵 に よる アニ メ 絵 の 数 は 少 を く て も , ディ スプ レイ 方 法 に よっ て は けっ こう それ ら 
で も , か な り の も の に し い ア ニ メ に 見 える 例 を 紹介 し まし ょ う . 空中 プラ ンコ を する 人 人 が, 
Ж панно жен» か どう 
か を 楽し む も の で す . 

例 に よっ で プラ ンコ に つか まっ て いる 人 間 の パタ ー ン を 描き , それ 
СЕТО т. 大 き な パ ター ン を GET@, PUT@ す る と 不 自然 に 
見 える こと が あり ます が , この プロ グラ ム の よう に 55※X25 ド ッ ト 程 度 
の も の で は 瞬時 に 描き , 瞬時 に 消え ます の で アニ メ と し て 十分 に 通用 
し ます ! 5 つの パタ ー を GET@⑯ し た の ち に , 天井 と 床 , そし て 着地 
の 目標 (乱数 を 使っ て , 出力 位置 を 変え た てい ます ) な ど を 描き ます . 
な お, PF キー の 5 を 押す と , 人 間 が ブラ ンコ か ら 飛 出す よう に な っ て 
いる た め , 割込み の 文 も 書き ます ( 行 番号 240). 

プラ ンコ は さい し ょ , ゆっ くり と 往復 し , 時 間 と 共に だ ん だ ん 速く 
な る よう に する た め に , ここ で は 変数 (SPEED) に まず 600 を 入れ て 
いま す . 5 つの パタ ー ン は それ ぞ れ 5 つの サブ ルー チン に よっ て 呼出 
L, 行き と 帰り で , 出力 順序 を 変え た て いま す ( 行 番号 260, 270). 1 往 
НУ Шым о кы 化 率 を 変え 
る よう に し まし た ( 行 番号 280). な お , ある 速 さ に な っ た ら ま た ゆっ 
ов е s S: Ui で だ だ 見 で いる だ で も 飽き な WW よ 多 に 0 て あ 
り ま す ( 行 番号 290). 

PF キー が 押さ れ , それ が 前 へ 飛 出す 時 (変数 F で 判断 ) に は , ブラ 
ンコ の 速 さ に よっ て 着地 点 を 変え る 計算 を し ( 行 番号 470, 480), 設定 
範囲 内 で 空中 を 進み ます ( 行 番号 500 一 560) Z ここ で は 着地 の 成功 ・ 失 
敗 の 判断 は し て いま せん が , ゲー ム を 作っ た り , 空中 の 姿勢 に 工夫 を 
し て , ウル トラ C の 演技 を させ る の も よい で し ょ う 











100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ グリ り チュ ウ "フリ コ = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
11@ DEFINT -7:BX=55:6Y=25:H=INT(BX*BY/16)+B:DIN B1(H) ,B2(H) ,B3(H) ,B4(H) ,65 (Н) 
130 SCREEN 7,0:CLS: ドド に し КААЛ ーー・・SEREEN 7,0 27 か メッ カラ テオ 2 
140 СІКСІЕ (20,5) ,5,7,,, „Е: СОММЕСТ (20,5) – (7,11) - (0,23) : СОММЕСТ (10,10) – (27,9) : БЕТЕ 
(0,0) - (6Х,6Ү),61,6,7:С.5: еннен КТЕР ОЕ КҮҮ с 

150 CIRCLE(20,5),5,7,,, F:CUNNECT(20,5)-(13,14)-(10,25):CDNNECT(15,11)-(32,9):8E 
Te(9,9) -(BX,BY) ,B2,B,7:CLS: ドー cs es ro 
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160 С1КС1Е(2@,5),5,7,,,,Е:СОММЕСТ(2@,5)-(2@,25):СОММЕСТ(2Йй,12)-(35,8):бБЕТ@(@,@)- 
(8Х,6Ү),653,8,7:015:%“..-.-.-................................МПВЕҘЗ 
170 СІКСІЕ(20,5),5,7,,,1Ғ:С0ММЕСТ(20,5)-(29,14)-(50,20):СОММЕСТ(26,11)-(82,8):8Е 





Т68(й0,й)-(6Х,6Ү),84,5,7:С15:7“““.“.!ң-!................. .М0ВЕ4 

180 СІКСІЕ(2й,5),5,7,,,,Ғ:СПММЕСГТ(20,5)-(34,13)-(54,17):СПОММЕСТ(29,10)-(43,0):6Е 
Т@(@,@0)-(б6Х,бҮү),65,6,7:С15:'........................ "........MODE5 

190 '========= 7%427%)4 


200 IF ТІМЕ>30000 THEN ТІМЕ%-"00:00:00" 
210 RANDOMIZE ТІМЕ:5СКЕЕМ 7,7:MIDTH 49,25:CLS 
220 11МЕ(0,0)-(559,0) ,РЅЕТ,4:11МЕ (100,185) - (639,199) ,РЗЕТ,4,ВҒ 


230 XRND=INT(RND*229)+269:LINE(XRND 185) - (ХЕМ0+30, 195) ,PSET,2,BF: +. •. #9779" 4 
240 ОМКЕҮ (5) GOSUB 440: КЕҮ (5) ОМ: “++... енне PF KEY/ 97725 
250 SPEED=699 

260 「=1: BUSUH 310: 60508 330:GOSUB 350: 60508 370: 60508 390: '· 1% 

270 Ғ--і: GOSUB 390: 60808 570: 60508 3550: 60508 330: 60506 310: '....лІЈ 


280 IF SPEED<=209 THEN SPEED=SPEED-5 ELSE SPEED=SPEED-59 

290 IF SPEED<=59 THEN 250 ELSE 269 

300 ‘========= PUT@ SUB 

310 M=1:X=59:Y=75:LINE(209,9) -(79,84) ,PSET,6:PUTe(X,Y)-(X+6X。Y+BY) ,B1 PSET: 60SUR 
420 

320 LINE(200,0)-(79,84),PRESET:PUT@(X,Y)-(X+BX,Y+8Y),G1,PRESET:RETURN 

330 M=2:X=97:Y=94:LINE(200,0)-(130,102),PSET,6:PUT@(X,Y)-(X+BX,Y+BY),62,PSET:GOS 
UB 420 

340 LINE(209,9)-(139,192) ,PRESET:PUTe(X,Y) -(X+6X%』Y+BY) ,B2。PRESET:RETURN 

350 М=3:Х=103:Ү=103:11МЕ (200,0) – (200,110) ,РЅЕТ, 6: РИТЕ(Х,Ү) –(Х+6Х,Ү+6Ү),63,РЅЕТ: В 
0SUB 420 

360 11МЕ (200,0) – (200,110) ,PRESET:PUTe(X,Y) -(X+BX』Y+BY) 。B3。PRESET:RETURN 

370 M=4: Х=225:Ү=94:11МЕ (200,0) – (270,102) ,PSET,6:PUT@(X,Y)-(X16X』Y+6Y) ,64,Р5ЕТ:60 
SUB 420 

380 LINE(209,9) – (270,102) ,PRESET:PUTe(%,Y)-(X+BX。Y+BY) ,84,РКЕЗЕТ: RETURN 

390 М=5: Х=280: Ү=79:11МЕ (200,0) – (521,84) ,РЅЕТ, 6: РШТЕ(Х,Ү)-(Х+6Х,Ү+6Ү) ,65,Р5ЕТ: В05 
UB 420 

400 11МЕ (200,0) – (321,84) ,РКЕЅЕТ: РИТЕ (Х,Ү) – (Х+6Х,Ү+6Ү) ,65,РВЕЗЕТ: RETURN 


420 РОК Т-й TD SPEED:NEXT:RETURNE「・・・ ッ ッッ ッッ ッッ ッッ トト トト トド ドド トド ドド ・・・ *・ ッ ジー カフ チョ ウ セ イ 

440 DN М GOSUB 320,340,360,380,400: -...... e sie sis a s humans s «РЕ KEY 7* 49/754/ уа) 
450 IF F>=ü ТНЕМ 470 ELSE 59:「・・・・・・・・・・・・ a s s s ale 4 "аске аж жав ホウ コウ ノー リッ タフ 

460 ' 

470 YM=INT(6999/SPEED):IF YM>50 THEN YN=59:「・・・・・・・・・・・ フ リラ リコ / ñP$9h ト フ "キョ リノ 74%: 
489 XM=INT(12999/SPEED):IF ХМ›В@ THEN XNM=B9:「・・・・・・・・・・ フ "ラフ コノ А?УЬ ト フ "キョ リノ 740 


490 X=X+XMiY=Y-YN 

500 MHILE X<540 AND Y<160 

510 РОТЕ (ХҮ) - (Х+6Х,Ү+6Ү),65,РЅЕТ: РОК T=@ ТО ІМТ (50007 (Ү#50) ) : МЕХТ 

520 ІМЕ (200,0) – (200,110) ,РБЕТ, 6: ‘н Pus pinas ee 49922 モト ドス 
550 PUTe(X』Y)-(X+BX 。Y+BY ) ‚65 ,РКЕЅЕТ 

54@ X=X+10:Y=Y+5 


559 WEND 
569 РИТ@(Х+2@,15@0)-(Х+2@0+6Х,1656@+БҮ),63,Р5ЕТ:'+.............. „77% 
580 РОК Т=0 TH 9000: МЕХТ:КЕҮ(5) ОРЕ: БОТО 2@@:',............ モウ イチ ト ” PLAY 





590 BEEP:LUCATE 16,2Й:РКІМТ"Мбіііі!!!";6070 580 
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24 枚 の 組合 せ ゲ ー ム 


*15 ゲ ー ム を 基本 に し て ォ モ チャ 屋 , 文房具 店 な ど で 見 か ける 15 ゲ ー ム は , 4 X4 枚 の チッ 
プ に 1 一 15 ま で の 数 字 が 書か れ , 16 枚 の チッ プ の うち 1 枚 を 抜い て か 
ら 自 由 に 動か し , また 元 に も ど し て 数 字 を そろ えた り , 異な る 順序 に 
並べ か えた りす る も の で す . 25 枚 の チッ プ を 作り , そこ に 絵 を 描き G 
ET@, PUT@ を 使っ て 元 ど お り に する も の を 考え まし ょ う ・ 
数 字 と は 違っ て 絵 の 場合 は より 難 か し く を な り ま すし , 似 た よう な 
ター ン が ある と ジグ ソー パズル と 同じ で , どの 位置 に 動か せ ば よい の 
か が すぐ に は 分 ら を いと いう 面白 きも 出 て きま す . 15 ゲ ー ム より お も 概 
数 が 多い だ け に , 真剣 に 取組 ん で も な か な みか 完成 し ませ ん ・ 





жж 25 個 分 を GET@, ここ で 取上げ た 絵 の 素材 は 蝶々 で す . Y 軸 を 中 心 に し て 左右 対称 の 
PUT@ す る 図形 と し , 作り や すく し た こと , それ ぞ れ の チッ プ に よく 似 た 模様 が 


ある の で , ま ご つ きやすい こと な どか ら 採 用 し て いま す . Wa ° ПА) 7 
模様 に すれ ば も っ と 難し く な り ま す . 

な お 形式 4 の , フル カラ ー で GET@ す る 時 , 画面 いっ ぱい の 絵 で は 
メモ リ が 不足 し ます . 今回 取上げ た 大 き さ が ギリ ギリ と いえ る で し ょ 
5. なお, 蝶々 の 原図 の デー タ に 対し , 画面 に 描く も の は 縮 率 を か け 
て 少し 小さ くし て いま す . 変数 (SX, SY) の 値 を 変え た た り , GSE 
の チッ プ の 寸法 (XW, YW) を 変え れ ば 自由 な サイ ズ の も の を 作る 
こと が で きま す . この プロ グラ ム で は 赤色 の 枠 を 作り , < Q risas w 
描い て いま す . 


ネネ ゲー ム の アル ゴリ ズ 15 ゲ ー ム その も の の 作り か た も いろ いろ な アル ゴリ ズム が 考え られ 

ム に つい て ҰЗ. ここ で は 餅 島 正裕 氏 に よる も の (ラジ オ 技 術 社 刊 , パソ コン 実 
用 ガイ ド "83 所 載 ) を 参考 に し , チッ プ 数 を 増やし た も の に し て いま すず 
5x5 の それ ぞ れ の マス 目 に 1 一 25 ま で の 数 値 を 与え , カー ソル キー 
を 使っ て 動か す と き の 位 置 に よっ て 数 値 を 交換 し ます ・ 空い て いる 場 
所 は 26 を 与え て , サブ ルー チン で その 場所 を 消す よう に し て いま ます. 
この 手法 の ほか に , 上 下 に 動い た と き は 5 ずつ 変化 し , 左右 に 動い た 
と き は 1 ずつ の 変化 で ある こと を 利用 し た チッ プ の 移動 方 法 も あり ま 
+. 長い リス ト で す が , 基本 は や さ し い の で じっくり 見 て 下さ ゆい : 
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GET@ す る 画面 


ゲー ム 中 の 画面 y 











+++ +++ ++ ЗЕ ЗЕ ЗЕ ++ ++ +++ кы GET@/PUT@ Ip)t лл" EE エス スミ ミミ ミス エス ミミ ミミ ミミ さえ ミミ ミミ ミミ ミス 】 


DEFINT -Z:MIDTH 40,25:CLS 
SX!=.78:SY!=.B:DIM X(35),Y(35):X0=180@0*#SX!:XW=56;:YW=28:G0SUB 959:ERASE X,Y 
КЕМ 5Х/5Үү: 232797 _XW/YW:F82 942” Х(1/Ү(1):%а9%а) 3 tap Х0:74уз9У77 
БП БАЙ ap usia um. arus sa Ram зу? РЕР ‚ээ эт А БЕТЕ SUB 
LOCATE @,20:PRINT"32 13 3757 344717 23" 1"; 
LOCATE 0,22: РКІМТ" 1: :23+#1? 2・・ < チュ コウ キュウ ニー さ 3・・・ リ ド ョ ウリ キュウリ 
LOCATE 0, 24: РКІМТ" К" 2 2740 ? М7Уу2799 トド 9 の 7 リョ 
6%=1МРОТФ (1): б= УА (6%) :ІЕ 6<1 DR B>3 THEN BEEP:GOTO 100 
СЕВЕ СЕБЕИ 5 5 охе еа клн i AUR кені ін елле ог 4473971) カイ スウ 


DIM A(4.4):CLS 


рея кА» ЫР И ы 

РОК BYD=0@0 TO 4:ҒОК RETSU=9 TO 4:PICT(G6YO,RETSU)=GYO*#5+(RETSU+1):NEXT:NEXT 
PICT(4,2)=26: 7...6... ТЕ ュ ュ ュ ア キト 9 174) 347%) 074 
FOR BY=@ ТО 4:ҒОК RE=9@ TD 4:GOSUB óQQ:NEXT RE:NEXT BY: ++... Th ya е 774 
GY=4: RE=2 


оду 
IF ТІМЕ>30000 THEN ТІМЕ%= "00:00: 00" 
КАМООМІЈЕ TIME 
FOR KAISU=1 ТО GRADE:RAND=INT(RND*4)+1:HN RAND GOSUB 420,460,500,540: МЕХТ 
"アイ テイ ル ñ 939 772 
FOR 6Үй-й TO 4:ҒОК RETSU=9@ TO 4 
IF PICT(GYO,RETSU)=26 THEN GY=GYO:RE=RETSU:GOTO 2B9「・・・・・・ アイ テイ ゴル ñ ua? リコ ョ カフ 


NEXT RETSU,BYO 

LOCATE 17,19:PRINT . " ZN Wi 
LOCATE 17,20:РКІМТ "Thats 
LOCATE 17,21:PRINT ーー 
LOCATE 17,22:PRINT е. дная 
LOCATE 17,23: РКІМТ " `Z: "; 
'119%з27 


А%=1МКЕҮФ:1Р А%="" THEN 350 
MOVE=32-ASC{A$) 
IF MOVE<1 OR М0УЕ>4 THEN 350 
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380 ON М0УЕ GOSUB 420,460,500,540 

390 60Т0 550 

40@ ' 

410 “ОР 

420 IF бҮ-й THEN BEEP:RETURN 

430 805ШВ 580:SWAP PICT(GY,RE),FICT(GY-1,RE):GOSUB 600:8Y=BY-1:60SUB 600 
440 RETURN 

450 ‘DOWN 

480 IF BY=4 THEN BEEP:RETURN 

470 GOSUE 580:SWAP PICT(GY,RE),PICT(GY+1,RE):GOSUB 608:6Y=GY+1:GOSUB 600 
480 RETURN 

490 'RIBHT 

500 IF RE=4 THEN BEEP:RETURN 

510 60508 580:SWAP PIET(BY,RE) ,PICT(BY ,RE+1 ) : BHSUB 699:RE=RE+1:BHSUB 600 
520 RETURN 

850 "LEFT 

549 IF RE=@ THEN BEEP:RETURN 

550 GOSUE 580:SWAP PICT(GY,RE),PICT(IGY,RE-1):GOSUB 600:RE=RE-1:GOSUB 600 
56@ RETURN 


570 

580 PLAY"V10T25005L166L4CDE":RETURN 

590” 

500 МИМ=Р1СТ(бҮ,ВЕ):Х5=18@0+КВЕ*(ХИ+1):Ү5б=бү+(Үй+1):°+++.+.. .......24797 17499 74% 


810 ON МИМ GOSUB 040,0650,500,570;880,590,700,710,720,730,740,750,750,770,780,790 
1800,810,820,830,840,850,860,870,880,900 

520 RETURN 

838” 

540 PUT@A(X8。Y8)-(X8+XM,YS+YM) ,61,РЗЕТ: КЕТЕМ 

550 PUT@A(X8S,YS)-(XS+XW,YS+YW),G2,PSET:RETURN 

560 PUT@A(XS,YS)-(XS+XW,YS+YW),63,PSET:RETURN 

570 РИТВА(Х5,Ү5)-(Х5%ХИ,Ү5жҮШ) ,54,РЗ5ЕТ: RETURN 

580 PUT8A(XS,YS)-(XS+XW,YS+YW),B5,PSET:RETURN 

590 PUT@A(XS,Y8)-(XS+XM,Y8+YM) ,56,РЗЕТ: RETURN 

700 PUT@A(XS,YS)-(XS+XW,YS+YW),87,PSET:RETURN 

710 PUT@A(XS,YS)-(XS+XW,YS+YW),B8,PSET:RETURN 

720 PUT@A(X8。Y8)-(XS+XM,YS+YM) ‚69 ,РЅЕТ: КЕТИЯМ 

730 РИТВА(Х5,Ү5)-(Х5%ХИ,Ү5жҮШ) ,610,Р5ЕТ: КЕТИЕМ 
740 PUT@A(X8,Y8)-(XS+XM,YS+YM) 。B11,PSET:RETURN 
750 FUT@A(XS,Y8)-(XS+XM,YS+YM) ,612,Р5ЕТ: КЕТЕМ 
769 PUT@A(XS,YS)-(XS+XW,YS+YW),613,PSET:RETURN 
770 PUT@A(X8,Y8)- (XS+XM,YS+YM) ,614,Р5ЕТ:КЕТИЕМ 
780 PUT@A(X8,Y8)- (XS+XM,YS+YM) ,B15,PSET:RETURN 
790 PUT@A(XS,YS)-(XS+XMiYS+YM) ,516,Р5ЕТ: КЕТИЕМ 
800 PUT8A(XS,YS)-(XS+XW,YS+YW),B17,PSET:RETURN 
810 РИТВА(Х5,Ү5)-(Х5%ХШ,Ү5жҮШ) ,618,Р5ЕТ: КЕТИЕМ 
820 PUT@A(X8,。YS)-(XS+XM,YS+YM) ,B19,FSET:RETURN 
820 PUT@A(XS,YS)-(XS+XW,YS+YW),B20,PSET:RETURN 
840 PUTeA(XS,Y8) - (XS+XM,YS+YM) ,B21.PSET:RETURN 
850 PUT@A(XS,YS)-(XS+XM,YS+YM) ,B22」PSET:RETURN 
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860 РИТ@А(Х58,Ү5)-(Х5+ХИ,Ү5+ҮН) ‚625, РЅЕТ: КЕТЫБМ 
870 PUT@A(X5,YS)-(XS+XM,』Y8+YM) , 24,PSET:RETURN 
88@ PUT@A (XS,Y8)-(%8+XW,YS+YM) ,B25,PSET: RETURN 


890 

980 LINE(XS,YS)-(XS+XW,YS+YM),PSET,2,B:PAINT(XS+2,YS+2),0,2: RETURN 

9440“ 

920 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ DRAM & BET@ SUB ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


9350 ЖЕКЕ ЕУ КЕ ЕУ УУУУ + チョ ウチ ョ ラチ. エガ ЖЕЖ ЕЕ ЕЕ ЕЕЕ КЕРЕ ЕНЕР 
940 “797 

950 RESTHRE 980:С-7:605ИВ 1440 

950 БАТА 6, 180,62, 1688,54,187,68, 169,71, ТРУ 180,75 

970 ‘23337 

980 RESTORE 990:C=1:BDSUB 1440 

990 РАТА ó, 132,36,148,41,157,46,165,52,169,56,171,63 

1000 ウエ / ñz 

1010 RESTDRE 1020:С=7:60508 1440 

1020 DATA 59, 172 ҰЛ» 150,65,150,55,110,40,90,28,70,20,50,15,40,10,50,9,20,10,12 
11148,19,7,28,7,58,9,35,17,59,25,42,24,50,25,61,58,78,57,78,48,85,54,88 48791778 
,93480,97,83,184,92,187,101,108,117,188,131,105,145,102,154:188,142,98,1469. 
1030 “у9) ñz 

1040 БЕ5ТОКЕ 1050:С=7:6050В 1440 

1050 БАТА 30, 98,106,78,111,52,118,57,125,22,132,15,158,13,143,15,148,19,155,21 
,181,21,187,23,178,27,173,35,174,48,178,58,178,66,178,78,172,84!149,87 1168, 1071 
85,119,180,151,155,139,150,147,144,154,137,168,125,104,118,10,114,167 107 

1080 “994 

1070 RESTORE 1080:С=7:6050В 1440 

1080 DATA 10, 175,74,189,80,147,86,187,105,168,111,171,116,173,119,175,120,178, 
121,180,121 

1090 “9І) ЛЗ) モヨ 9 ウ 1 

1100 RESTORE 1110:С=7:6050В 1440 

1110 DATA 14, 72,21,73,28,75,33,72,58,67,43,62,47,54,51,7@,55,75,5й,77,54,76,59 
'72,75,64,8@,53,85 

1120 ウエ / ЛЗ) も ヨウ 2 

1150 RESTORE 1140:С=7:56050В 1440 

1140 БАТА kL, 108,55,111,55,117,58,115,60,111,61,103,62,95,80,91,58,89,55,92,53 
.100,53 

1150 “9І) М3) モヨ ウミ 

1160 RESTORE 1170:C=7:60SUB 1440 

1170 DATA 11, 106,72,111,70,119,70,126,72,130,74,127,76,119,77,112,76,108,75,1D 
6,74,106,72 

1180 “9І) ñ22/ #394 

1190 RESTDRE 1200:C=7:GOSUE 1440 

1200 БАТА 10, 105,89,1@7,87,114,85,121,86,125,88,122,91,115,92,111,91,1@7,9@,1й 
5,89 

1210 9/ дз) も ヨ ウ 1 

122@ RESTHRE 1230:C=7:60SUB 1440 

1230 DATA 17, 50,119,58,121,04,124,47,129,63,135,5В,159,52,143,62,145,72,149,77 
,152,80,155,77,159,75,184,87,108,04,109,59,173,55,17% 

1240 “:9) 43) モヨ 92 
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"1250 RESTORE ч C=7:60SUB 1440 

1260 DATA 9, 125.997 122,104,124,105,126,102,128,97,129,90,127,89,124,92,123 

1270 2597 йа) кы 

1280 RESTURE 1290:С=7:6050В 1440 

1290 DATA 8, 95,143,100,142,107,143,110,145,106,148,99,148,94,145,95,143 

1300 “РАІМТ 

1510 РА|МТ(27,43),6,7:РАІМТ(2%Х0-27,45),6,7 

1320 РАІМТ (78,45) 3,7: РАІМТ (2+Х0-78,45),35,7 

1530 РАІМТ(92,59),3,7:РАІМТ(2%)0-92,59),5,7 

1540 РАІМТ(92,71),5,7:РАІ1МТ(2%Х0- ДА ОРАУ 

1350 РАІМТ (7,100), 5,7: РАІМТ (2%+Х0-76, 100) ,5,7 

1560 РАІМТ (79,116) ‚5,7: РАІМТ (2+Х0-79, 675377. 

1370 РАІМТ (24,120) ,6。7:PAINT(2*X9-24,120) ,6。7 

1380 PAINT(59,68),1,7:PAINT(2#X0-59,68),1,7 

1390 PAINT(59,95),1,7:PAINT(2*#X0-59,95),1,7 

1400 LINE(0,0)-(S*#(XW+1),5*#(YW+1)),PSET,2,B:;: РАІМТ(1,1),4,7,1,2 

1410 (97 

1420 FOR Х-Й TH 4*(ХИ+1) STEP XM+1:FUR Ү=@ TO 4+(ҮЙ+1) STEF YW+1:LINE(X,Y)-(X+XW 

Yt+YW) ,Р5ЕТ,2,В:МЕХТ:МЕХТ: КЕТИКМ 

1430 「 す ョ ウキ ョ / ФГ Ез? 74% 

1440 READ М:ҒОК Р=1 ТО NiREAD ХОР) 』Y(P):X(P)=X(F)*SX!EY(P)=Y(P)*SYIENEXTiFDR Р-1 
TO N-1:GOSUB 1480:МЕХТ 

1450 “5Һ47,2772) グイ リョ ウ 2774) %Ез97 7492 

1460 FOR P=1 ТО N:X(P)=2*#X0-X(P):NEXT:FOR Р=1 ТО М-1:6050В 1489:NEXT:RETURN 

1470 '*a?2 3 I"? 

1480 CONNECT (X(P),Y(P))-(X(P+1),Y(P+1)),C:RETURN 

1490 ' 

1500 кке кке кен нан 25 9-07 бЕТ@++ + +++ + + + + + + + # ++ # + + # + +++ + ++ + +++ 

1510 DIM 61(31@),62(51@0),65(51@),64(31@) 。B5 (319) 。B6(319) ,B7 (319) 。 B8(319) ,B9(319) 
АЛД 811(310), 8120518), 5130310) .B14 (319) ,615(210), B1&(319) 817(319) 618( く 19 
1819(31й0), 62@(31@), 821(31й), 622(31@),6253(31@),624(31Й), 625(51@) 

Тер 84 0: YS= @: BET@A(X8。 YS)- (XS+XW。 YS+YM) 。 Gi,G:GOSUE 1570: БЕТ@А (Х5,Ү5) – (Х5+ХИ,Ү5 

+YM) ‚62,6: В050В 15780: СЕТЕА (Х5, YS) - (Х5+ХМ, үз+үн), 65,6: 6080В 1570:BET@A(XS, YS)-(XS 

+XM 。 е 6:6050В 1570: бЕТЕА(Х5,Ү5)-(Х5%ХИ, үз+үн), 65,6 

1530 Қ56-й0:Ү5-Ү5ғҮүйғі:БЕТЕА(Х5,Ү5)-(Х5%ХИ,Ү5жҮЙ) ‚56,6: B0SUB 1570:БЕТеА(Х5,Ү5)-(Х5 

+ХИ,Ү5+ҮН) ,67,6:605ИВ 1570: BET@A(X5.YS) – (Х5+ХИ, үз+үн), 68,6:6050В 1570:BET@A(XS,Y 

5) - (XS+XM。 YS+YW) „89, G:GOSUB 1570:GET@A(XS,YS)-(XS+XMW, үз+үн), 610,6 

1540 Х5=0: Үб=Үб+ҮН+1 : БЕТЕА (Х5,Ү5) – (Х5+ХИ, ҮЗ+ҮМ) ‚611,6: 60508 1570: ВЕТӨА (Х5,Ү5) – (Х 

St+XW,YS+YW) ‚612,6: 6050В 1570: GET@A(XS,YS)-(XS+XW,YS+YW), 615,6:6050В 15780: BETeA(X 

S, YS)-(XS+XM, YS+YM) , 614,6:6050В 1570: BETSA(XS。 YS)- (XS+XM。 YS+YM) 。B15,B 

1550 Х5=0:Ү5= YStYWt1: GET@A(XS,YS)-(XS+XM。YS+YM) 。B16.B: BUSUB 1570: BET@A(XS, Y5)- (X 

S+XW,YS+YW),617,6:60SUB 1570: GET@A(XS,YS)-(XS+XW,YS+YW) ,618,6: 6050В 1579:BET@A(X 

57 YS) - (X8+XM。 YS+YM) ,619,6:GOSUB 1570:GET@A(XS, YS)- (XS+XM。 YS+YM) ,B20,B 

1560 Х5=0:Ү5= YS+YMt1: GET@A(XS,YS)-(XS+XW,YS+YW),B21,6: 8050В 1570: BET6A(X8, Y5)- (X 

S+XW,YS+YW),522,6:60SUB 1570: BET@A(XS, YS)-(XS+XW,YS+YW),623,6:60SUB 1570: BET@A(X 

S,YS)-(XS+XW,YS+YW),624, 3 BUSUR 1570: бЕТ@А(Х5, YS)- (XS+XM。 YS+YW) ,525,6 

157@ X5=X5+XM+1:RETURNE「・・・・・ コワ ウブ コブ フリ リフ ニー 273747 

















漆 字 の 取扱 いと 
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漢字 を 画面 に 出し て みる 








ネー 覧 表 を まず 見 まし ょ う 


※JIS で は 区 , 点 と も 1 一 94 に 設定 さ 
れ て いる 。 FM-77 で は , 点 に つい て は 
&H21 一 &H7E, 区 に つい て は &H21 一 
&H4F と し て いる .。 た と えば 「 澄 」 は 
JIS で は 32 区 1 点 で ある が , FM-77 の 
コー ド 体 系 で は 第 1 バイ ト (区 ) ған 
40, 第 2 バイ ト ( 点 ) を &H21 と し て お 
り , &H4021 で 「 澄 」 を 指定 する こと に 
な る 


FM-77 に は JIS に 定め られ た , 第 1 水準 の 漢字 を ROM の 形 で 内 蔵 し 
て いま す . 漢字 の それ ぞ れ に は コー ド が 割付 けら れ て いま す が , 呼出 
し は 4 ケタ の 16 進 数 を 使う こと が 基本 に な っ て お り , マニ ュ ア ル の 巻 
末 を ど に コー ド と 共に 一 覧 表 の 形 で 掲載 され て いま す . 10 進 数 を 使っ 
て も 呼出 せる こと は いう まで も あり ませ ん . 

一 覧 表 を 見 れ ば 分 る こと で す が , 漢字 は 音読 み を 基本 に し て いる こ 
と , また コー ド は &H2120 一 &H4F53 (10 進 数 で 8480 一 20307) あ た り ま 
で 付け られ て いま す が , その 間 が ビッ シリ と 埋め られ て な いこ と が 分 
り ま す . 漢字 の 出力 は , も っ と も 簡単 な 例 で は 

PRINT@, コー ド 
と いう 文 に な り ま す . 漢字 出力 は グラ フィ ッ ク 画 面 を 使う こと , また 
プリ ンタ へ の 出力 に も 制限 が ある こと な ど を まず 理解 し まし ょ う . 





*※※ い ろ い ろ と 分 る , 一 覧 な に は と も あれ , まず 漢字 を 画面 に 出し て み ま す . サン プル プロ グ 
表 の 内 容 ラム を 見 て くだ さい . ここ で は 画面 に 出力 する 漢字 の コー ド を 入力 す 
る と , 11150160, そし て 8 行 に わた っ て 漢字 を 出力 し ます . 
コー ボド 体系 の 基本 は 本 来 な 5 ドウ タタ 405 1 p ССС БИИ Ед 
100 "ニニ ニニ = ニニ ニニ テニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ уу" イチ ラリ ジュ リリ ョ フ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


250 GOTO 150 





110 DEFINT A-Z:X0=16:Y0=8:WIDTH80,25:CLS 
120 LINE(0,0)-(2%#X0+16*#24,20*8+10),PSET,6,B 
150 LOCATE 0,22:ІМРИТ"5ТАКТ) カッ ウッ ” CODE 


140 

150 FOR 6Ү0-й TO 7 

160 FOR М0021-0 TO 15 

170 КС0ВЕ-57%(16%6Ү0%М071) 

180 РКІМТЕ(Х0ғМ021%24,Үй%5Ү0%2й) ,KCODE 
190 NEXT MDJI 

200 NEXT BYO 

205 ' 


210 LOCATE 0,23:PRINT"9#"3 5879 PUSH ANY KEY"; 

220 MHILE INKEY$="";WEND 

230 ST=KCODE+1:LOCATE 0,22:PRINT USING" ス 9- ト CODE=& & 
240 LINE(1,1)-(2*#X0+16*24-1,20*8+10-1),PSET,0,BF 


"yST*:ST=VAL("kH"+ST$) 


"isHEX$(ST) 
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START/ フウ CODE ? 3228 
HARDC2 に よっ て コピ ー し た 一 覧 表 ぁ | 2035 PUSH АМҮ KEY 











る は ず で す が , 一 覧 表 で は 2, 4, 5, 6, 7 し か 使っ て いま せん . し 
た が っ て サン プル プロ グラ ム で 漢字 を 出力 する と , 空白 が 出 て きま す 
が , と りあ え ず これ を 動か し て みて 漢字 出力 に 慣れ まし ょ う . 

まず 気がつく こと は , 違う コー ド を 入力 し て も , 出 て く る 漢字 は 同 
じ に な る こと で す . た と えば 「 亜 」 は &H3021, &H30A1 の 両方 が 使え 
ます . また , ひら が な と カタ カナ は , &HFF (256) 分 離れ た コー ド に 
な っ て いま す が , カタ カナ に は 「 ヴ , ヵ , ヶ 」 の 3 文字 が 余計 に ある 
こと で す . ひら が な を カタ カナ に , カタ カナ を ひら が な に 直す と き , 
ひら が な ーー カタ カナ 変換 は 可能 で す が , カタ カナ か ら ひ ら が な へ の 変 
жІЗ, も し 「 ヴ 」 な ど が 含ま れる と 不可 能 に な り ま す . また , キャ ラ 
クタ コー ド 表 で の カタ カナ の 出現 順 と , JIS の 漢字 (正しく は 非 漢字 ) 
の 出現 順 も 異な っ て いま す . し た が っ て キー ボー ド か ら 入 力 す る キャ 
ラク タ に , ある 数 を 加え て 4 ケタ の 16 進 数 に すれ ば た ち ま ち 画 面 に 漢 
字 と し て 扱う ひら が な や カタ カナ を 出力 する , と いう わけ に は ゆき ま 
せん . 

漢字 の 一 覧 表 を ながめ て いる と , この ほか に いろ いろ と 楽し いこ と 
が 分 る の で す が , それ は さて お き , 漢字 処理 を いろ いろ と 考え て み ま 
し ょ う . その 基本 と な る の は 漢字 の コー ド 体 系 と , FM-77 の 内 部 メモ 
リ と 外部 記憶 装置 …… эе ШО жее. 
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読み か ら 漢 字 を 探す 一 一 1 





* 読 み の 先頭 を 配列 に 人 
れる 方 法 が ある 


** 先 頭 の コー ド が 分 れ 
ば , それ に 続く 漢字 が 求 
め ら れる 


まず 漢字 の 呼出 し を 考え まし ょ う . いち ば ん や さ し い の は 漢字 一 覧 
Боре Т ТИІ を で ワ ま で の 漢字 の 先頭 の コー ド を 使う 放 
# G+. た と えば Y$ (I) と いう 配列 を 用 意 し 

УФУ) = ty U30212 pu 2) = 40 ВОЛА 6." 
と いう 形 の 文字 列 デ ー タ に し て お きま す . 探し た い 漢 字 の 読み を 入力 
し た ら , その 読み と 配列 と を 比較 し ます . この 比較 は 
①IF 読み ーーLEFT$ (Y$ (1), 1) THEN……・ 

Y$(①) の 左 か ら 1 番 目 (つま り ア ,。 イ , …… ез) と , 入力 し た 読 

み が 同 じ な ら , と いう 書き 方 
(СІБЕ INSTR(Y$ (1), 読み ) THEN…… 

Y$ (0 に , 入力 し た 読み が 含ま れ て いれ ば , と いう 書き 方 

と いっ た 方 法 が 使え ます . 

こう し て 目的 の コー ド を 含む Y$ (D と いう 配列 が 見 つか っ た ら , 

CODE$= RIGHT$ (Y$ (1), 4) 
つま り , 配列 の 右 か ら 4 つの 文字 の つづ り を 取出 し て , コー ド と し ま 
+. 入力 し た 読み が “ イ ” と し た ら , これ で コー ド は “304А” に な り 
ます 


コー ド が 304A で ある , と いう こと が 分 っ た の で , これ を 漢字 の デー 
ӘСЕ ЖЕзУОУС, た と えば 

PRINT@(X, Y), УА! ( `&H” + CODE $) 
と すれ ば , 画面 に “ イ ” の 先頭 に ある 漢字 が 出力 され ます . な お , V 
AL は 文字 列 を 数 値 化 する 関数 で す が , 10 進 数 に は その まま 対応 し て 
も , 16 進 数 の 文字 列表 記 で ある 今 の CODE$ に は , その まま で は 対応 
し ませ ん . CODE$ =“"304A" と し て 

VAL (CODE$) …… 数 値 は 304 に な っ て し まう 

VAL ('&H 十 CODE$) …… 数 値 は 12362 で , 16 進 数 の “304A” と 正 し 

く 対 応 する 
に な 9 まる 

UiG8 ӘИЕЛ” の 先頭 の コー ド が 見 つか れ ば ここ か ら 
始ま る 漢字 の 一 覧 を 画面 に 出す の は すぐ に 分 る で し ょ う . 17 個 分 な ら 
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FOR I=0 TO 16:ST ニ コー ド の 先頭 十 | 
PRINT @(|*20, 0), ST 
NEXT 
と いっ た 形 に すれ ば よい わけ で す (138 ペ ー ジ の プロ グラ ム 参 照 ). 


* ネ 読み を 細分 化 この 方 法 で も , ある 程度 実用 に は な り ま す . それ ぞ れ の 読み の 先頭 

すれ ば よい が …… の コー ド は ア , 4, 9, ее” ワ ま で 44 あ り ま すか ら , 配列 も それ だ け 
の 数 で 足り ます . この 方 法 を よく 見 る と , た と えば “ ネ ” の 読み の も 
の を など は 少な い の で , 漢字 は すぐ に 見 つか り ま す が , “и” АЗ な 
ど は 漢字 が 多く , 目的 の 漢字 を 探す 作業 が た い へ ん に な り ま す . 

便宜 的 に は 先頭 の コー ド , と いう 方 法 で は な く , た と えば “ ア ” な 
5, 30350 “ЈЕ” あたり を 仮 の 先頭 コー ド に し て お き , 画面 上 で は 
“Ж” か ら 始 まる 漢字 を 出力 し , プロ グラ ム の 方 で , この “Е” を 中 
心 に し て 前 に も ( 梓 …… ІН) 出力 で きる よう に すれ ば よい で し ょ う 。 
また , 読み を 増やし て 

ア 3021 アツ 3035 4 304A イツ 306Е 

ウ 3126 ウツ 3135 …… 

と いっ た よう に する 方 法 も あり ます . 細分 化す れ ば 目的 の 漢字 は 探し 
や すく な り ま す が , プロ グラ ム は それ だ け 複 雑 に な り ま す . も う ひ と 
つの 問題 と し て は , JIS の 漢字 コー ド は 音読 み で すか ら , た と えば 『“ ア 
м” СТЕ ГЕ ойу 135089721, ГЕ Sk 厚 」 な ど は まっ 
た く 別 の コー ド 体 系 に を っ て いる こと で す . 細分 化し て も , 探す 手間 
は 必 ら ず し も 減り ませ ん . 

JIS の 漢字 一 覧 表 を 基準 に し て 漢字 を 探す 方 法 は , けっ きょく の と 
ころ , どの 方 法 を と る に し て も 限度 が あり ます . 使い 手 が 一 覧 表 を よ 
く < 見 て 暗記 を し 。,。 を た と る そば СЫ” a s ТО), “ウン "の 一 覧 
中 に ある と いっ た よう に 対応 し な けれ ば いけ な い の で す . 

一 覧 表 に 頼ら な い 漢字 の 探し か た , と いう こと に な れ ば , 自分 で 読 
み の 辞 書 を 作る し か 方 法 は あり ませ ん . 言葉 の 上 で は この ひと こと で 
すみ ます が , い ぎ 実行 する , と いう こと に な れ ば , か な り 大 変 で す . 
まず 時 間 が か か る こと , 経験 を し て いな いた め に 使用 頻度 が 多い 漢字 
と そう で な いも の の 扱い が 分 らち な いこ と (この た め に , 使用 顔 度 の 少 
な い 漢 字 が 探し や すく , 多い も の を デー タ の 最後 に 置い て 探し に くく 
な っ た りす る ) な ど を あら か じ め 考 えな いと いけ ませ ん . 
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読み か ら 漢字 を 探す ー 一 2 


* も っ と も や さ し い 辞書 漢字 一 覧 表 に 頼ら を な いと すれ ば , 読み か た と それ に 対応 する 漢字 を 
を 作る デー タ の 形 で 整理 し な けれ ば いけ ませ ん . さき ほど の 例 と お な じ 手 波 
を と ! づ だ プロ グラ ム で 考 る まじ ょ よう .、 чу УУ) ОЛЕҢ ЭО 
読み と 共に それ に 対応 する コー ド を 入力 し , や は り 配 列 の 形 で いっ た 
ん FM-77 の メモ リ に 入れ て お きま す . ここ で は と りあ え ず 2,000 個 分 
の 読み を 扱い ます . 
入力 が 終了 し た ら , いま 作成 し た デー タ を シー ケン シャ ルフ ァイル 
に 書き こん で お きま す . これ で と りあ え ず 使い 手 が 考 える 読み と , < 
れ に 対応 する 漢字 コー ド が 外部 記憶 され た の で , 漢字 一 覧 表 に 頼ら な 
く て も 目的 の 漢字 が 探せ る こと に な り ま す . 
た だ し この 方 法 を 実用 化し よう , と いう こと に な る と , も ちろ ん こ 
れ だ け で は すみ ませ ん . 第 一 , 1 回 の 作業 で すべ て の 読み の 入力 は で 
き な い の で , 追加 の プロ グラ ム や 訂正 , 削除 の プロ グラ ム が な けれ ば 
いけ な いで し ょ う . また デー タ の 中 か ら 目 的 の も の を 探す 方 法 を じ ょ 
うず に 考え な いと 時 間 が か か っ て し まい ます . 











100 "ニニ ニニ ニニ ニニ ニニ ニニ = ヨミ / у%039 97) SUB РКО. == ニ = ニニ = ニニ ニニ ニニ ニテ ニニ 
110 ' %2%12724 274824-97 39714 547" =9 

120 DEFINT A-Z 

150 N=1:CLEAR 3000:01М Ү0М1%(2000) 

140 CLS 

150 LOCATE 0,5: ІМРОТ"35 "; ҮОМІ$ 

160 INPUT"3-k* ";KCODE$:PRINT@(50,10),VAL("&H"+KCDDE$) 
178 ҮОМІФ (№) =ҮОМІФ+КСОрЕ$ 

180 РКІМТ"7474 ・・・>T ニオ 79 リ ・・・・>E УЖ 7219087 АМҮ KEY" 

199 ҮМФ-ІМКЕҮ6:ІР YN$="" THEN 190 

200 IF YN$="T" OR YN$="t" THEN 140 

210 IF YN$="E" OR YN$="e" THEN 240 

220 N=N+1:IF М>2000 THEN 240 ELSE БОТО 140 

250 ‘77442 #07 

240 ОРЕМ"0",#1, "2" уз" 

250 PRINT #1,N 

260 FOR I=1 TO N 

278 FRINT #1,YOMI$(I) 

280 NEXT 

290 CLOSE 








読み を 入力 する プロ グラ ムシ 








デー タ の 中 か ら 目 的 の も の を を 『 
探す ブ プログラム 


= Еа я 


A 右 の プロ グラ ム の 出力 例 


**※ 読 み の デ ー タ か ら 
同音 異義 語 を まとめ る 
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100 ‘========== ッッ ラコ リカ カウ SUR РКО. = ニニ ニニ ニニ ニニ エニ ニニ ニニ = ニ 
lig ` жж 7°П7`55 774024=0* リョ 939 カウ K 3542" =Ü 
120 ' 


150 CLEAR 3000:DIM 1%(25) 

140 ОРЕМ"І",#1, "2" уз" 

150 INPUT #1,N 

160 DIM YOMI$(N) 

170 FOR I=1 TO N 

180 INPUT %1,Ү0М1% (1) 

190 NEXT 

200 CLOSE 

Уа ЫШ АД; 

220 NUM=1:I=1:REM* МОМ=7° - 97А" ## エ ニモ 2 ティキ モノ / Лл” 
250 ІМРОТ "359 トウ ウリ" "J KENSAKU$ 

240 IF INSTR(YOMI$(NUM) ,KENSAKU$) THEN БОБОВ 540 
250 NUM=NUM+1:IF NUM>N THEN 270 

20 БОТО 240 

270” 

280 CLS 

290 FOR 1-1 TO I 

500 PRINT@(J*18,0),VAL("&H"+L$(J)) 
310 NEXT 

320 БОТО 520 

330 32) 4797%/9 792 

340 L$(I)=RIBGHT$(YOMI$S(NUM),4):I=I+1 
350 RETURN 

360 КЕМ 41%(1)-357747У7%/) 797) 











ここ で は , そう いっ た 問題 は まほ て お いて , いま 作っ た 読み の デー タ 
を 使う こと を 考え ます . 上 の サン プル を 見 て くだ さい . 

まず ファ イル か ら デ ー タ を 取出 し て , FM-77 の 内 部 メモ リ に 入れ て 
し まい ます . そし て 行 番号 230 で , 探し た い 読 み を まず 求め ます . ここ 
で は INSTR 関 数 を 使っ て , 読み の デー タ の 中 か ら , 探し た いも の を 検 
索 し て いま す . そし て , 該当 する も の が 見 つか っ た ら , も う ひ と つの 
配列 に この デー タ を 入れ る サブ ルー チン を 呼出 し ます . 

と で は lb 当 し くい まま が この 部 列 居 は 元 の デー タ の 中 
か ら , 目的 の 読み に 該当 する も の が 集め られ , その コー ド 部 分 が メモ 
リ さ れ ま す . た と えば 上 の 見 本 な ら 

LS(1) =3027 : L$(2) --3271---- 

と いう 形 に な り ま す 。 
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жжж 応用 方 法 と し て は 


ネネ キネ キネ 読み の 追加 プロ 
グラ ム に つい て 


い ぃ いま の , いわ ば 同音 異義 語 を 集め た 配列 は , と りあ ぁ あえ ず 画面 出力 に 
だ け 使 われ て いま す が , こう し た 処理 を 基本 に し た 発展 型 と で は 
〇 プロ グラ ム に 近い 形 で 使い , 出力 され た 漢字 に 番号 を つけ , ЖТА 

力 に より コー ド を 与え て 文章 化し て ゆく 
Oo 配 列 に 番号 を つけ て , 読み の キー (KEY : 手がかり ) О ВЕЛЕ 

ПЕР о" о Е е ул] 

され た 検索 用 の 文字 列 か ら 先頭 の 2 文字 を 取出 し , “7 47 な ら 2 番 

と いっ た 番号 づけ の プロ グラ ム を 作る . ファ イル も あら か じ め 1 番 

の ラッ ァイル は 『 ア アパ 介 28 秩 は “アイ” と いう よう を な 作り 方 に し て , 

目的 の 漢字 を ファ イル か ら 呼 び 出 す . 

と いっ た こと が 考え られ ます . つま り 配 列 に いっ た ん 納め られ た 同音 
意義 語 も また , 外部 記憶 装置 に デー タ の 型 で 納め る 方 法 で す . ランダ 
ム フ ァ イル を 使え ば , アク セス 時 間 も 速 く , また FM-77 の メモ リ も 多 
く は 使わ を な いそ と に な り ま す . 


さて , 読み と , それ に 対応 する 漢字 コー ド を 探し 出す 方 法 に つい て 
の 2 つの 例 を 説明 し て きま し た が , と りあ え ず 2 番目 の , 読み に 対応 
する 漢字 コー ド を 自分 で 作る プロ グラ ム を いっ た ん まとめ まし ょ う . 
右 に は 2 つの プロ グラ ム が 掲載 され て いま す . 上 の プロ グラ ム は , い 
わ ちば メイ レン ブロ グラ ム で 。 ツー ュー に し た が っ て で 3 つの サン クロ クマ 
ム を 呼出 す 形 に し て いま す . ここ で は CHAIN 命 令 を 使っ て いま す が , 
1 一 3 まで を 選ぶ と それ ぞ れ の 仕事 を し て くれ ます . 

読み と それ に 対応 する コー ド の 追加 入力 プロ グラ ム が , その 下 に 出 
て いま す . シー ケン シャ ルフ ァイル を 使っ て , デー タ を 追加 する 方 法 
に は いく つか の も の が あり ます が , ここ で は いち ば ん 単純 な を も の に し 
て いま す . つま り , 旧 デ ー タ が 入っ て いる ファ イル か ら デ ー タ を 取出 
し て , コン ピュ ー タ の 内 部 メモ リ に 移し た ら , いっ た ん | 旧 フ ァイル は 
101 きき 2 の の 296。 旧 デ ー タ か ら は いく つの デー タ が あっ た の か ( こ 
こ で の 変数 は N) と いう こと と , デー タ そ の も の (ここ で は YOMIS ) 
を も ら っ て 。 再び 新規 入力 と 同じ よう に デー タ を 入れ て ゆく 方 法 に な 
り ま す . し た が っ て , 追加 入力 と 新規 入力 (前 の ペー ジ 参 照 ) は ほ と 
ん どど 同じ や よう な プロ グラ ム で す .。 ひとつ に まとめ Ii<」 メニ ュー 形式 に 
し て 新規 入力 か , 追加 入力 か を 選ぶ プロ グラ ム に する の が 本 筋 で す が, 
ここ で の 目的 は , 読み と 漢字 の 対応 を 考え る こと な の で , 個々 の プロ 
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"= ニニ リリー リョ ニ ヨ 5 Луу”) у19Уа7%МАІМ РКО. === 
MIDTHB9,29:CLS 

Аф= "0" 589704": В%= "0" 9940": С%= "0° 89920" 
РВІМТ"1:"; АФ: РКІМТ "2: " ; В%: РКІМТ "З: "С 
INPUT" ト "レル テ "スカ "5XETF Х‹1 OR X>3 THEN 5 

ON X 8070 7,8,9 

CHAIN А6: REM SUB PRO. 

CHAIN B$: REM SUB РКО. 

CHAIN C$: REM SUB PRO. 


о CO +j о Cn рам 


メイ ンプ ログ ラム bp 








10@ "ニニ ニニ ニニ ミニ = ニニ 32) "уз / "419 SUB РЕВО. ニコ ニニ ニニ ニニ ニニ ニコ ニニ ニニ ニ ェ =* 
12” ж 7%17754 ファ イメ イニ リド リョ リ イ 有 カ k" 347° =9 

120 CLEAR 3999:DEFINT А-7:ВІМ YOMI$ (2000) 

130 ОРЕМ"І",#1, "2" уз" 

140 INPUT #1,N 

150 FOR I=1 TO N 

160 INPUT #1,YOMI$(I) 

170 NEXT 

180 CLOSE 

190 KILL "u"ua" r'y*-93 АМ4/924/9/77 フル イモ ノラ カス 

200 “947 

210 N=N+1 

220 С15 

250 LOCATE @,5:1МРИТ"З5 "; ҮОМІ$ 

240 INPUT" コ -ー ト " ";KCODE$:PRINT@(50,10),VAL("&H"+KCODE$) 
250 YOMI$S(N)=YOMI$+KCODE$ 

260 PRINT "テイ セイ ・・・2T Аа?) ОЕ 9+" 7219087 АМҮ KEY" 
27@ YN$=INKEY$:IF ҮМ%-"" THEN 270 

28@ IF YN$="T" OR YN$="t" THEN 220 

290 IF YN$="E" DR YN$="e" THEN 320 

300 N=N+1:IF М>200й0 THEN 320 ELSE 6070 220 

310 “774% 5714 

320 ОРЕМ"0",%1,"у уа" 

330 PRINT %1,М 

340 FOR I=1 TD N 

350 PRINT #1,YOMI$(I) 

360 NEXT 

370 CLOSE 








"読み ” の 追加 プロ グラ ム bp 





グラ ム に し て 理解 し や すい よう に 処理 し て いま す . 

と いう わけ で , ひと まず 漢字 の 話 を 終え を まし ょ う . な お , カタ カナ 
や ひら が な も 漢字 の 仲間 と し て 扱わ な いと 文章 に な り ま せん の で , つ 
ぎの ペー ジ で は 漢字 以外 の 文字 と , その 探し か た に つい て を 考え て ゆめ 
きま Ú 212 
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ひら が な , カタ カナ の 扱い か た 








* カ ナ に も 専用 の 配列 を 
用 意 する 


ネネ デー タ を 2 分 し て 
検索 を させ る 方 法 


か な は 読み か た が 固定 し て いる の で , その 処理 は むず か し く は あり 
ЖА; ただ; 注意 し を いと いけ な い の は FM-77 の キー ボー ド に は な 
い カ タカ ナ や ひら が な が ある こと で す ( ゐ , 2, *, =, аро) 
これ ら は 今日 で は 死語 に 等 し い の で , と りあ え ず は , 5:4, 8о-еш 
な ど と 同じ に し て も よい で し ょ う . 

右 の ペー ジ の サン プル は 今 ま で 説明 し て きた 手法 を も と に し て いま 
+. まず サブ ルー チン の 310 行 以降 で , КАМА $ (1) に 

ぁ 2421 あ 2422 ぃ 2423 
と いっ た 文字 列 を 作り , それ を し まっ て お きま す ・ 0 ら : で キー ポー ボド 
か ら 入 力 し た 文字 と , この 配列 に し まわ れ て いる 文字 を 比較 し て , Н 
的 の も の を 見 つけ 出す わけ で す . 


JIS の ひら が な は , 83 個 あり ます . キー ボー ド か ら 入 方 し た カナ と , 
配列 に し まわ れ て いる デー タ を 照合 する と き , 入力 文字 に 関係 まく デ 
ー タ の 先頭 か ら 探 し は じ め る と , “Z” が も っ と も 時 間 が か か り ま す . 
も っ と も , FM-77 は 処理 速度 が 速い の で , 100 個 程 度 の デー タ か ら 目 
的 の も の を 見 つけ る と し て も , 実際 に は 0.5 秒 も か か ら な いで し ょ う ・ 
し か し , ここ で は より 速く 探し 出す アル ゴリ ズム の 例 を 考え て み ま す . 

行 番号 250 を 見 て くだ さい . 入力 され た カナ が “ ト ” より も 小さ い … 
つま り ASCII の コー ド 表 で 「 ヲ , 7, …。 テ , ト 」 ま で の 文字 で あっ 
た ら , 検索 開始 は 1 番目 か ら , “ 下 ゥ より も 大 きか っ た ら 検 索 開始 は 42 
番目 か ら と いう 意味 の 数 値 を KS と いう 変数 に 与え を て いま す ・ 

を た と えば 入力 され な た 欧 字 が 絆 訪 mw だ と し た ら , KS==41 に な り , 行 番 
号 250 の イン スト リン グ 関 数 は , まず 

IF INSTR (KANA$ (41), ナ ) THEN 
に な り ま す . KANA$ (41) は “ ド ” で すか ら , この 判断 文 は 偽 に な り , 
KS=KS 十 1…42 と な っ て , また 探し 始め ます . そし て , 2 回 目 は K 
АМА $ (42) に な り , ここ に “ ナ ” が ある の で , 行 番号 280 に 飛び , 
“ナッ の 文字 列 の 右 か ら 4 つの つづ り を カナ の コー ド と С нх s€ < 
れ ま す . 順序 づけ が ハッ キリ し て いる デー タ な ら , この よう に 開始 位 
置 が 指定 で き , すばやい 検索 が 可能 で す . 
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11@ 
12@ 
130 
140 
150 
160 
170 
180 
190 
200 
210 
22 

230 
240 


250 


260 
270 
280 
290 
300 
510 
3520 
530 
540 
350 
360 
370 
38@ 
390 
400 
410 
420 


'================== 180] ヒラ カカ "ナノ 55972 hk 用 メー リュ コリ リョ 7 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
DEFINT A-Z:CLEAR 1999:MIDTHB9,25:EULOHR 7:С15 
GOSUR 310: ......,.,.. enn ese PE ....... 711-К” 74% SUR 
ІМРИТ"1:ЕЭ9Л7 2:Л977 トト" チラ う ":KH: IF KH=2 ТНЕМ KH=256 ELSE KH=9 
Кылый ес іс а сл MAIN hui ES NE cn a= aus er = lr шы 
CLS 
LOCATE 0,10:INPUT" モラ トド ウリ Xs GOSUB 240: '........ ...ға ем. ^ フ カリ SUB 
PRINT@(M*20,20), (КАМА+КН) ; : КЕМ KH= カ 9 カナ ヒラ カナ 2747939 
LUCATE 0,12:РКІМТ"9%9 72:32075 АМҮ KEY PUSH" 
LOCATE 0,10:РКІМТ" ";М-М%1:6070 170 
“12197372 9439228 2-89 902 
IF Х%<-"К"ТНЕМ K8=1ELSE К5г41:!4:%::4е%658444.4.4.... ......Ң/47 カイ サイ キナ キメ ル 


IF INSTR(KANA$(KS) ,X$) THEN 280 ELSE К5=К5+1: БОТО 250 


ИА З Е ЕОР Да ва оаа д Е, 
KANA$=RIBHT$(KANA$(KS) , 4) : КАМА= ЧА ( "КН" + КАМА) : КЕТОКМ 
"лэл? ヒラ テカ "ナラ лоу" CODE こ スル 9 メ / DATA ニュ ウリ ョ 7 
DIM KANA$(86):HIRA=kH1:CODE=&H2420:RESTORE 380 :'9248=(&H2420) 
WHILE КАМАФ< > "THEEND" 

READ KANA$:KANA$(HIRA)=KANA$+HEX$ (CODE+HIRA) : НІКА=НІКА+&НІ 
WEND 
RETURN 


カナ 77-9 жн 


БАТА ?,7,4,4,2,0,1,1,4,7, А ЕИ КО ОЛ Жон 

ТАТА" ТАРА ло тұтам УО УКУ УА ЛЕТ ws уе 

DATA K" Y 2 та y ñ" nt, EYE 

DATA &*,з,5,5,5,®,#,?,1,1, я,3,3,),&,Ь,П,#,7,4, I,3,2 


DATA "THEEND" 








と いう わけ で , 検索 時 間 は 半分 に 短縮 され る わけ で す が , 実際 


に は 


前 に も 述べ た よう に , JIS の 一 覧 表 と ASCII の コー ド 体 系 は 異 を る た 
め , キー ボー ド か ら の 入力 文字 が “я” の と き , この プロ グラ ム で は 
“R” より も 小さ いと 判断 を し て , 1 番目 か ら 探し 始め ます . し か し JIS 


の 体系 で は ずっ と うし ろ の 方 に ある の で , 本 当 は KS=42 か ら 検 索 


させ 


る べき な の で す . 特定 条件 を つけ た 文 を 行 番号 250 に 追加 し て お け ば よ 
い (Ж, %, л, ョ が 入力 され た ら , KS 一 42 と する ) の で す が , 条件 
文 を 書く と それ を 判断 する た め の 時 間 が か か り ま す . し た が っ て 実用 
上 は どちら が 本 当 に 速い か を 考え な いと いけ ませ ん が , ここ で は 無視 
СҚА 
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文書 を 作り , 保存 する 








* 画面 の 基本 設計 を どう 
する か 


*k* 用 意 す べき お も な 変 
数 に つい て 


жж 重要 な , 文字 数 と 
行 数 の 管理 


で は , 以上 の 予備 知識 を ふま えて , 画面 に 文章 を 作り ひと つの 文書 
と し て まとめ た の ち , フロ ッ ピ ー に 記録 する プロ グラ ム を 作る こと に 
し まし ょ う . ワー ド プ ロモ セッ サ に は 程遠い と し て も , 郵便 物 の 宛名 書 
き 程度 に は 使え ます . まず 考え る こと は , 1 文書 を , どの よう な スタ イ 
ル に まとめ る の か , で す . ここ で は も っ と も や さき し く 作 れる も の と し て 1 
行 あ た り 40 桁 (40 文字 ) , 6 行 ま で の 文書 と し ます . FM-77 の グラ フ 
ィ ッ ク 画 面 は 640 メ 200 ド ッ ト で すか ら , 漢字 (1 字 あ た り 16X16 ド ッ 
F) ほ 1 行 に 40 文 字 . そし て 12 行 まで (16X12 一 192 ド ッ ト ) 出力 で き 
る の で す が , 行 と 行 (上 下関 係 ) は 少し 間隔 を 空け な を いと, と て も 見 
に くく な り ま す . また , メニ ュー の スペ ー ス を 作ら な いと 操作 で き な 
мос, ここ で は 6 行 に 抑え , その 代り 画面 の 上 下 に 余裕 を も た せる 
こと に しま kt 


まず 用 意 し な く て は いけ な い 変 数 と し て は QO 漢字 検索 用 配列 от 
ナ 検 索 用 配列 〇 作成 し た 文章 記録 用 配列 が あり ます . 文章 の デー 
タ は 文字 列 変数 に し て も よい の で す が , メモ リ の 効率 か らい えば 数 値 
変数 に する べき で す . ここ で は BUN (5,40) に し て いま す が , この 配 
列 に 実際 に 代入 され る の は , た と えば 0 行 目 の 左 か ら 5 番 目 の 文字 デ 
ー タ な ら BUN (0,4) に なり, も し この 位置 に “ 山 ” と いう 字 が 入っ て 
юг, “ш” の コー ド は &H3B33 を の で BUN (0, 4) —&H3B33 (103 
数 の 15155) に を な り ま す . この プロ グラ ム で 扱う 数 値 は 整数 だ け な の で 
すべ て の 変数 に 整数 型 を 使う こと を 宣言 し て お きま す ( 行 番号 170)・ 


хт, この プロ グラ ム で は , 行 数 は 0 一 5 まで の 617, 文字 数 は お 
な じ く 0 一 39 ま で の 40 文 字 で すか ら , 画面 出力 お よび 配列 変数 の BUN 
(5,40 を コン トロ ー ル する た め に は , 常に 行 と 文字 数 を チェ ッ ク し , 
T bi p ОАА УЛ 
文字 数 が 39 を 越え た ら , つぎ の 行 に を る の で , 行 に 1 を 加え る 
〇 ある 行 の 文字 数 が 39 に な る 前 に 文章 を 改行 し た ら , 新しい 行 に は 1 

を 加え , 文字 数 は 0 に も ど し て や る 
O 出 力 し た 文字 を 訂正 する と き は , 同じ 行 の 中 な ら 文 字数 を ひと つ 減 
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119 
12@ 
130 
140 
150 
160 
178 
180 
198 
200 
210 
228 
238 
240 
258 
20 
270 
280 
290 
зае 
310 
320 
330 
340 
350 
2 
зой 
378 
388 
390 
400 
418 
428 
438 
448 
458 
469 
479 
480 
490 
500 
510 
520 
530 
540 
550 


"ニニ = ニニ ニニ ニニ ニニ ニニ = ニニ ニニ = ニニ ニニ ニニ ニニ = ニニ = カリ リッ" / 72%ууа ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ ニニ ニニ ニニ ニニ ニニ 
ж 1 キョ ウ 40 Еу" 6 キョ ウフ "フラ ノー フリフ リョ まあ リーフ ж 


JUN "84 by T.U 


DEFINT A-Z:CLEAR 3000:WIDTH80,25:COLOR 7:CLS 
DIM BUN(5,49) Е .. . ...“ .. .. ! “г.г өаеаеееаееаааеаввв а. а" ууардтТАЯ9 ЛАУ 
カッ "コート" 529228 92) READ DATA 
DIM Ү0М1%(47):КАМ-1:КЕ5ТОКЕ 1440 
MHILE YOMI*%<>"THEEND" 
READ YOMI$:YOMI$(KAN)=YOMI$:KAN=KAN+1 
WEND 


"カナ 上 うけ コート" ココ 5292289222) READ DATA 
DIM КАМА$ (84) : НІКА=1: СОрЕ=9248: КЕЗТОКЕ 1520 に て に に し に err s. 9248=tkH2420 
MHILE KANA$ く <>"THEEND" 
READ КАМА$: КАМА$ (НІКА) =KANA$+STR$(CUDE+HIRA) : НІКА=НІКА+1 
MEND 


"ーーーーーーーーーーーーーーーーーーーーーー 219087 / #9443 Г 322 72 -------------------------- 
FOR 1-й TO 58 STEP 2:LOCATE I*2,0:PRINTI;:NEXT 

FOR 1=0 ТО 9:SYMBOL(25*1,145),STR$(I),1,1,5:NEXT 

LOCATE 49,23:PRINT"17" オ 29 リ 9=SPACE 17" Еһ" 7=В5 h4(f`a9=RET"; 

LOCATE 0,24:С010Ж 5:PRINT"9:DIREET 1:69 2:00 3: エイ 29 4:39 5:Л77--›7 
E:END"j:COLOR7 


ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ メイ 見 一 チリ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
REM *BY0U= キ ~ ョ ウス ウ 9  #MHJT=1 キ " ョ ウノ モリ "スウ жКАМ21 (&H3020=" カラ モッ ) 
6Y0=9: MOJI=9 
COLOR 5:РКІМТЕ(М021%18,6Ү0%22%10),8Н2132:СО10Б 7:7“, .Н2132=("_" 7-У%777)) 
(0САТЕ 0,22:РКІМТ"7:2 #297 ウマ スカ (9・・・8)7 "; 
5%-ІМКЕҮ%:ІҒ 5%-"" THEN 420 
IF 5%=СНЕ%(&Н@0) THEN GOSUB 590: 6Ү0=6Ү0+1:М0ЈІ=0:ІҒ BYD=6 ТНЕМ 650 ELSE 400 
IF 8$=CHR$(&H29) THEN GOSUB 599:KANJI=&H3929:GUTU 510 :°.--.--..+-..8РАСЕ 
IF 8W=EHR$(&H9B) THEN GOSUB 610: БОТО 400 : '· еен нен ее В5 
IF 5%="Е" THEN 660 AVE ルー チリ 
8=VAL (5%):1Е 5<0 OR 525 THEN ВЕЕР: 60508 570:GOTO 410 
IF S=@ THEN GOSUB 850:5070 500 レッ ッッッ し し し し し し CODE ニュ ウリ ョ 7 
ON S BOSUB 920,1020,1110,1190,1200 
BOSUB 590 esse ガー リル ブ ガス 
PRINT@(MOJI*16,8Y0*22+10),KANJI:BUN(6YO,M0JI)=KANJI 
MOJI=NDJI+1:IF MDJI MOD 39-0 THEN 6Ү0=6Ү0+1: М0ЈІ=0 
IF 6YD>=6 THEN 660 244844......ш-!”.а..........ш... ө еавввагаг... SAVE ルチル 
GUSUB 570: 50Т0 400 キノ ニュ ウリ ョ 7 
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ポポ ポメ イン ルー チン は 
こう な っ て いる 


***** その 他 の 注意 点 
に つい て 


ら す の で , 文字 を カウ ント する 変数 も ひと つ 減 ら す 
O 行 数 の カウ ント が 5 に な り , し か も 文字 数 も 39 に な っ た ら , “ЖА 
上 の 文章 は 作成 で き な い よう に 処理 を し , フロ ッ ピ ー に 記録 する よ 
Әлемде Е ЗИ 


まず メイ ン ル ー チ ン を 見 て くだ さい . 行 番号 400 で , 現在 の カー ソ 
ル を 画面 に 出力 し ます . 行 (変数 GYO), 文字 (変数 MOJI) と も 0 で 
すか ら , 最初 は 当然 左上 に カー ソル が 出 ま す . 文字 の 出力 位置 は 行 と 
文字 の 変数 を 使い ます . 行 番号 430 は 改行 (操作 キー は リタ ー ン キー) 
440 が 1 字 送 り (操作 は スペ ー ス バー), 450 は 1 字 戻 し (操作 は バッ ク 
スペ ー ス キー) に な り ま す . 

つぎ に , 入力 モー ド を 受付 け ま す . ここ で は 0 が 直接 入力 (出力 し 
た い 文 字 を コー ド で 入力 する ), 1 が ひら が な , 2 が カタ カナ …… バ £ Z 
っ て いる の で , 行 番号 490 で 入力 モー ド に 合せ た サブ ルー チン を 呼出 
す よ うに し て いま す . それ ぞ れ の サブ ルー チン で , 使い 手 が 入力 し た 
文字 に 合致 する コー ド を 探し た ら , 行 番号 510 で それ を 画面 に 出し ま 
+. 画面 に 出し た あと , 行 番号 520 で , 文字 数 を ひと つ 増 や す と 共に , 
も し 文字 数 が 39 に な っ た ら (ここ で は MOD を 使っ て 判断 ), 行 数 は ひ 
оО ыдым OE аы Б БМ АРЕ чыг и, 

この 操作 の くり か え ぇ え し で , 設定 文字 数 お よび 行 数 に な る まで 文章 を 
作り , 作業 を 終 を たら 記録 ルー チン に 飛ん で , 画面 に 出力 され た デー 
ТАСИ ТОТОУ a i ЗО Өтте 


2%, 使用 頻度 の 高い 句読点 (。 や ,) を ど は , 文字 に 対応 する コー ド 
を いち いち 検索 し なく て も 入力 で きる よう に , ここ で は 英 数 , ひら が 
д, カタ カナ の 3 つの モー ド の 時 に は すぐ に 画面 に 出力 する よう に し 
まし た . 横書き の 文章 で すか ら , カン マ だ け に し て , 日 本 語 の 読点 (、) 
は 使わ な いよ うな を プログ ラム で す (本 書 で も , カン マ と ピリ オド を 使 
っ て いま す . 本 に よっ て は 句点 =「。」 と 読点 = ニ 「、」 を 使う も の も あり 
2-94): 

また , 1 字 分 を 戻す と き は 特別 を 注意 が 必要 で す . と いう の は , 1 
字 分 戻し た 時 に は 画面 に 出 た 漢字 を 消さ を な いと いけ な い の で す が , 漢 
字 に は 空白 の 文字 が な いか ら で す . 行 番号 620 の よう に , LINE 文 と ボ 
ックス フィ ル (ВЕ) を 使っ て 消す し か 方 法 は あり ませ ん . 
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560 “жж 用 "メリ カッ SUB 


570 FOR E=19 TO 23:10САТЕ @,E:PRINT SPACE$(39);:NEXT:RETURN 
580 “жы カー リル ケリ SUB 
590 СОСОК @:PRINT@(MDJI*16,5YD*#22+10),&H2132:COLOR7:RETURN 


500 “***#* BACKSPACESUB 
610 GOSUB 590:MDJI=MOJI-1:IF MDJI<0 THEN М011=@:'...............{у*л709 892 
620 LINE(MOJI*16,GY0O*#22+10)-(MOJI*16+16,BY0O*22+26) 。PSET,9』BFg「・・・・・・・・ も モジ "ブリス 


850 RETURN 

649 ' 

850 '------------------------ B-J2998 224852 #П7------------------------------- 
669 GDSUB 570: ............. “.г..... sess... 444..шшш шаа ааа ааа ЫЕ 


670 BEEP:LOCATE 9,22:PRINT" フ ァイル ニ キロ 2 ウッ スカ 2 Y ог N (h`542"=0)"; 

680 ҮМФ-ІМКЕҮ%:ІҒ INKEY$="" THEN 680 

690 IF YN$="N" ОК ҮМ$="п" THEN CLS:GOTO 320 

700 IF YN$="y" OR YN$="y" THEN 710 ELSE БОТО 680 

710 GOSUB 570:LOCATE 9,22:INPUT" フ フッ ョ メイ (5 モウ" ) 2 ";BUN$ 

720 BUN$=LEFT$(BUN$,5) 

730 OPEN"D",#1,"0:102."+BUN$ 

740 FOR 6-0 TO 5:ҒОК М=@ TO 39:PRINT #1,BUN(B,M):NEXT М,6:С105Е 

750 ERASE BUN:DIM BUN(5,40):CLS:GOTO 320 

754“ ' 

770 '++*+*+* コッ マ 上 "リオ ト " etc. こ ュ ウリ ョ 7 SUB 

780 IF HIRA$="," THEN KANJI=kH2124;RETURN500 

790 IF HIRA$="." THEN KANJI=&H2125:RETURN500Q 

800 IF НІКАФ="," THEN KANJI=kH2123:RETURN500 

810 IF HIRñ$="-" THEN KANJI=&H213C:RETURN500 

820 RETURN 

830 ' 

840 '------------------------- チョ 7 セツ 219037 ---------------------------------- 
850 GOSUB 570:LDCATE 0,22:PRINT"CODE(16322) Э к“ 9У" "; 

860 KANJI*$=INPUT$(4):KANJI=VAL ("&H"+KANJI$$) еее ененнен CODE ADU 
870 РКІМТЕ (10,155) ,KANJI:LOCATE @,23:PRINT"DK? Y or N"; 

880 ҮМФ=ІМКЕҮФ: ІР YN$="" THEN 880 

890 IF ҮМ$="М" OR YN$="n" THEN BUSUB 57@:60Т0 4QQ 

900 IF ҮМ%-"Ү" ОК ҮМ%= "у" THEN RETURN 

910 BEEP:BOTO 880 

920 "------------------------------- ЕЗУ ---------------------------------- 
930 ' 

940 GOSUB 570 

950 LOCATE @,22:LINEINPUT"82*"*3 "99" "; НІКА$ 

960 GOSUB 78 :'................................ 4A ト "SUB 
970 “жж 72797 

980 Ізі 

990 IF ІМӘТК(КАМА%(1),НІКА%) THEN КАМ21-УЙІ (КІБНТ% (KANA$(I),4)):RETURN 

1000 1=1+1:IF 1<-НІКА THEN 990 ELSE RETURN 400 

1010 GOTO 990 

1020 '-—------ 7972 --—------- 
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103@ GOSUE 570 

1040 LOCATE @,22:LINEINPUT "モッ "3 козу“ ";Н1КА% 

1050 GOSUB 780 :'• «еее аеннан =з ва өэ оаа i re en ее ао өле Re S] SNI YP A ke 4505 
1060 '** 7297 

1070 Ізі 

1080 IF ІМӘТК(КАМА%(1),НІКА%) THEN KANJI=256+VAL (КІБНТФ (КАМАФ (1) , 4) ) :RETURN 
1090 1=1+1:1Е I<=HIRA THEN 1080 ELSE RETURN 400 

1100 6070 1080 

БЕ. ара лес тойт css ПА тазвкатшезтанванакЕБеа са 
1120 BUDSUB 579:LUCATE 0,22: РКІМТ"#2* 3 қалу ғ 

1130 EISU$=INPUT$(1):PRINT EISU$;" し 

1140 HIRA$=EISU$:BUSUB 780:Е150%-НІКА% ena асада аа 10183494 上 りり 4 "BUBA/ %7498%79У 
1150 IF АЅС(Е150%) >=48 AND ASC(EISU$)<=57 THEN KANJ1I=(9998-48)+ASC(EISU$) : КЕТО 
ЕМ: “2097 

1160 IF ASC(EISU$) >=65 AND АЅС (Е180%) < =90 THEN КАМЈ1= (9025-05) «А5С(Е150%): КЕТО 
RN: 「 ALPHA ЯЯї>*` 

117@ IF SCE(EISU$) 2-97 AND АЅС (Е150%) <=122ТНЕМ КАМЈ1= (9057-97) +АЅС (Е150%) : КЕТИ 
RN: 「 ALPHA ЈЕ“ 

NO ニタ ラ ニー ニニ ニー と ニー ビニ ニコ ニー と デミ と と ロロ ЕТИ を の いら と エエ と ュー ニニ コニー ニュ ニー エー ヤー エマ ニン RT デー 
1190 YS=&H21E9:BUSUB 1329:RETURN 

人 人 Okay の ンー タデ В Е, Е га ーーー ここ ексен ена селе s 
1210 GOSUB 570:LOCATE @0,22:PRINT"352 үй” АЛШ Фу 

1220 Y$*$=INPUT$(1):PRINT Y$; 

1230 IF ASC(Y$)<&HB1 OR ASC(Y$)>&HDC THEN BEEP:RETURN 499 

1240 '** 72977 

1250 1=1 

1260 IF Y$=LEFT$(YOMI$(I),1) THEN Ү5%-КІ6НТ%(Ү0М1%(1),4):60Т0 1280 

1270 I=I+1:IF I<=KAN THEN БОТО 1260 ELSE RETURN 4Q0Q 

1280 YS=VAL ("&H"+YS$):60SUB 1320:RETURN 

1290 ' 

1300 '+*++*++# ヒ ョ ウジ シー tup) SUB жеты 

1310 КЕМ жж SPASE= カ フリ" ト 22° / ЛуЛ?Э 770927 4229 

1320 FOR J=Q TO 9:PRINT 8(7%28,155),Ү5%7:МЕХТ 


1530 LOCATE @,22:РКІМТ "72" 227 5" 27% <-- --> ュ ト リヤ イメ =ESC" 

1349 К6-ІМКЕУ6 ІР K$="" THEN 1340 

1350 IF А5С(К%)=&Н1С THEN YS=YS+10:BOSUB 570:60TO0 1320 : '&Н1С="—-—-->›" 
1360 IF ASC(K$)=&H1D THEN YS=YS-10:60SUB 57@:60Т0 1520 : *kH1D="<——-—" 
1370 IF ASC(K$)=k&H1B THEN BUSUB 570:КЕТИКМ 400 : '&H1B=ESC KEY 
1389 IF ASC(K$) く <&H39 OR ASC(K$) >&H39 THEN BEEP:GOTO 1330: ДОЗИ 193916 


1590 KANJI=VAL (K$):IF KANJI く 9 OR KANJI>9 ТНЕМ 1550 ELSE KANJ1I=KANJI+YS 
1499 RETURN 

1410 ' 

1420 ' 

1430 “жж лоо" 77-97 жә 

1440 БАТА 73036,43055,03133,13156,43225,05346,%5553,73575,73767,13929 
145) DATA 43459,У3634,73Ғ65,%4007,/4158,74255,%4355,74454,74478,Һ4576 
1460 DATA 74858,24878,44728,34729,/4735,04772,8487Е,74975,714444,%4821 
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1470 DATA 74В60,24С2С,04055,24044,%4С53,74070,14027,34051,2406В,74Е35 

1480 DATA 84Е5СГ,1/4Е73,04Е54,74Ғ40 

1490 DATA "THEEND" 

1500 ' 

1510 ‘жжжж 77 77-9 жж 

1520 DATA ?,7,4,4,0,0,1,1,4,3,7,7,%,47,7,77,7,77,1,17,%, 6 ,у,у7 2.27, t t" 
СЕВ DATA VA 
1540 DATA ^,^",^°,#,%°,%*,7,5,5,5,®,Р,?,1,1,з,3,Э,),&,Ь,П,#,7,4,1,9,2 

1550 DATA "THEEND" 








я # w 
о&0Ң НК, ВВА ЙІН ЕН ОК, 
うき まし て は ВРЕВА, 
な お КЕТТЩ ОНЕКИ ЧОТ, БРНИК 
128208 
жу Ё 








4 出力 の サン ブル 





100 ' ニ ニニ ニニ ニニ = ニニ ニニ ニニ ))уу" 7-99 3t")5"2Z エニ ニニ ニニ ニニ = ニニ ニニ ニニ ニニ ニニ ニ 
110 DEFINT A-Z:WIDTH 80,25 

120 DIM BUN(5,40) 

130 ІМРИТ"27уу874(5%:7) ";ВИМ% 

140 BUN$=LEFT$(BUN$,5) 

150 ' 

150 ОРЕМ"І",#1, "0:727. "+ВИМФ 

170 FOR 6=0 TH 5:ҒОК М=0 TO 59:ІМРИТ #1,ВОМ(6,М) : МЕХТ М,6 


180 CLOSE 

190 ” 

200 CLS 

210 FOR б-й ТО S:FOR М=@ TH 39 

220 бҮб=6#22;'+......++++»+»++»зазвзв в *. f$" 3905973 77% 


230 PRINT@(M*16,8YD),BUN(G,M): +... apun" ジロ 9 リョ 7 
240 NEXT М,б 

250 ' 

260 LOCATE @,22:РВ1МТ"лЛ-Һ*°СОРҮ ジッ スズカ?" 

270 YN$=INKEY$:IF YN$="" THEN 270 

280 IF ҮМ%-"Ү" OR ҮМ%-"у" THEN HARDC2:END 

文書 を 呼び 出し , 出力 する Py 290 IF ҮМ%-"М" ОК YN$="n" THEN END ELSE 270 

プロ グラ ム 











ここ に 紹介 し た プロ グラ ム を 使っ て , 画面 に 文書 だ け を 出力 する の 
が 上 の プロ グラ ム で す . デー タフ ァイル を 呼び 出し て , ハー ドコ ピー 
命令 を 使っ て 印字 させ て いま す . 
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漢字 フォ ント を 拡大 し て 見 る 








*GET@ を 応用 し て 漢字 は 16 メ 16 ド ッ ト で 構成 され て いま す が , 画数 の 多い 文字 など は 

拡大 する 正確 に は 表 わ せ ず , それ らし く 見 える よう に 適度 に 処理 を し て いま す ・ 
к (フォ ント ) が どう な っ て いる の か を , 漢字 を 拡大 し て 出力 レ エ 
ЕЗИ 


ここ で は GET@ の 形式 3 を 使い , 1 ドッ ト ご と に る その 有無 を 調べ て 
いま す 。、 サ プル ー チ ン は この ドッ ト を も と に , 拡大 率 に 従っ た 幅 で 別 
の 場所 に PUT@ し て ゆき ます . た と えば え 方 向 の 拡大 率 が 10 倍 の と き 。 
xxXW= 9 に さり кА Аа ЕУ: Оно) ошм 
灯 し て いる と , サ プ ル ー チ ン で は 

Т p X WS G (K=p 2, 2,8057 ‚ 9) 

хх=0хХМАС=0 х10= 0 

хо 25020 С, PUT@ さ れる XX 座標 は 251 一 259 

同様 に メー1 の 点 は 方 向 に 261 一 269 と いう よう に 拡大 され ます Y 
方 向 も お な じ )、. 

ды, 拡大 率 が 低い と PUT@ す る 点 が 少な く , 見 に くく な り ま すか 
510X5 (X xY) 倍 程度 に する と よい で し ょ う ・ 





100 БҮТТІТІГІГ 32334224444 + + т”) 88-337 5% すそ そそ ミミ ミス スエ ミミ ミネ ミエ そる る るる うう た も も る 
110 

120 DEFINT -7:MIDTH 8@,25 

130 INPUT "ヨコ メ / 379° анус 4 4539) ";ХМАВ:ІМРИТ"?т/ 779 479 (20° 4 Ана?) “:ҮМАб 
140 ҮҮН-ҮМА8-1:ХХИ-ХМАб-1:Х0-250:Үй-20:01М KAN (3) 

150 ІМРОТ" ЕУ" Л н; СОрЕФ: К=ЧАІ ( "Н" +С00Е$) 

150 CLS:LOCATE 5,1:PRINT “үу: CODE=&H"; CODES;:PRINTE(Q, 0) ,К 


179 FOR Ү=@ 10 15:FOR Х=й Т0 15 

180 BET8(X,Y)-(X,Y) KAN,6,7:60SUB 250 

190 NEXT X:NEXT Y 

200 LOCATE 3@,24:РВ1МТ"%+#°9 2077 АМҮ KEY PUSH"'; 
210 MHILE INKEY$="";WEND:CLS:60TO 150 
зәр” 

230 FOR Хй=1 TO XXM:FOR YW=1 ТО YYM 

240 үү-ҮжҮМАб: XX=X EXMAG 

250 PUT8(X0+XX+XW,Y0+YY+YW)-(X0+XX+XW,Y0+YY+YW) KAN,PSET,ó 
269 NEXT YW:NEXT XW 
270 RETURN 














サウ ンド ミュー ジック 
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サウ ンド レジ スタ の 基本 





* 発 振 音 の 高 さ を きめ る 


※ 周 波数 (frequency) : 1 秒間 に くり 
か えさ れる 物体 や 電気 の 振動 数 . 1 秒 
間 に 100 回 の くり か え し は 100Hz (ヘル 
`), 1 秒間 に 10.000 回 の くり か え し は 
10.000Hz と いう よう に 表示 する 


※CT, FT と 発振 周波 数 
50Hz : CT=6 ЕТ-1 
100Hz : CT=3 ЕТ-1 
300Hz : CT=1 FTー1 
500Hz : CT=0 ЕТ-153 
1.000Hz : CT=0 ЕТ-77 
2.000Hz : CT=0 ЕТ=38 
4,000Hz : CT=0 ЕТ-19 
6,000Hz : CT=0 ЕТ-13 


** ノ イズ と 波形 加工 用 
の 発振 周波 数 


※ ノ イズ (noise) : 一 定 の くり か え ぇ し 
も せ ず , いろ いろ な 音 が 混在 し て いる 
50. FM-77 で は ホワ イト ノイ ズ と 呼 
ば れる , あら ゆる 周波 数 が 混在 し た も 
の を 発生 する 


※NT と ノイ スズ 発 振 周波 数 
4,800Hz : NT=1 
2,400Н2 : NT=2 
1,200Hz : NT=4 

800Hz : NT=6 

150Hz : NT=31 


FM-77 に 内 蔵 き まれ て いる サウ ンド IC は , 基本 的 に は 3 つの 音 を 独立 
し て 発生 する 仕様 に を っ て いま す . さら に ノイ ズ 発 生 器 ・ 波 形 加工 革 
を それ ぞ れ 1 個 ず つ 持 っ た も の で , その 構成 は マニ ュ ア ル に 掲載 き 机 
て いる よう に , レジ スタ (register : デー タ を 一 時 的 に 置く 装置 ) の 
7 番 を 中 心 に し て , 2 つの プロ ッ ク に 分 れ て いま す . 

@ 方 形 波 お ぢ よび ノイ ズ 発 生 プ ロッ ク (レジ スタ 0 一 6) 
e 音量 お よび 波形 加工 プロ ッ ク (レジ スタ 8 一 13) 

まず 方 形 波 と ノイ ズ 発 生 レ ジス タ を 見 まし ょ う ・ 方 形 波 の 発生 は 3 
つの チャ ネル が あり レジ スタ 0・1, 2-3, 4: 5150/0 < 52 СЩ 
か た に な り ま す . それ ぞ れ の レジ スタ に デー タ を 入れ る と , % Q 
タ に 従っ た 音 を 発生 し ます が , 発振 周波 数 は 

Ғ- (76800) = (256x CT+ FT) (Hz) 

CT エー レジ スタ 0,2,4 に 与え る デー タ (数 値 は 0—15) 

F エ ー レ ジス タ 1.,3,5 に 与え る デー タ (数 値 は 0 一 255) 

に な り ま す . サン プル プロ グラ ム は CT と FT を 与え , その 音 の 高き 
(周波 数 ) を 出力 する と 共に , 音 と 波形 を ディ スプ レイ する も の で す ・ 


いっ ぽう レジ スタ 6 に 割当 て られ て いる ノイ ズ 発 振 用 レジ スタ に 入 
れる デー タ は ひと つ で , NT は 0 一 31 の 5 ビッ ト と な っ て いま す .・ 

£= (76800) = (16х NT) (Hz) 

以上 が レジ スタ 7 を 経由 する 発振 器 で す が , も う ひ と つ , 波形 加工 
用 の 発振 器 が あり ます . こち ら は 

ғ= (76800) = ((256x CT+-FT) X16〕 (Hz) 

CT エー レジ スタ 12 に 与え る デー タ (数 値 は 0 一 255) 

FT エー レ ジ スタ 11 に 与え る デー タ (数 値 は 0 一 255) 

と な っ て いま す . 波形 加工 用 の 発振 器 は , レジ スタ 7 を 経由 し た 音 を 
加工 する , きわ め て 低い 周波 数 で , ふつ う は 1Hz 一 20Hz 程 度 に 設定 し 
ます . 

жы, これ ら の レジ スタ へ の 書き か た は すべ て 

SOUND [レジ スタ 番号 ] , 〔 数 値 ] 

БТА ІС ИЛ 








100 "= ニニ ニニ ニニ ニニ ニニ ニニ ニ ェ ニニ = sound frequency <<REBISTER @ % 1>> ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
110 TM=599giMIDTH 80,25:С0М501Е 15,10:CLS: +... 4...а.лл..... TM= シ ドカ フッド 7 カイ サッ ヨウ 
120 INPUT "ET(@-15) ":СТУІР CTZ>15 THEN ВЕЕР: б0ТО 120 

130 INFUT"FT(9-255) ";FT%Z:IF FTZ2255 THEN ВЕЕР: БОТО 150 

140 IF CTZ=@ü AND ЕТ7=@ THEN ВЕЕР:60Т0 120 

150 БОБОВ 2Q0Q0:GOSUB 25й0:РКІМТ"УУ-Л 2Zh PUSH Y or М " 

170 YN$=INPUT$(1):IF ҮМ$="Ү" OR YN$="y" THEN SHUND 8,0:CLS:GOTO 120 

180 IF ҮМ%-"М" OR ҮМ%-"п" THEN SHUND 8,@:WIDTH 80,25:CLS:END 

190 6070 170 

280 “ニー ニー ご ニニ ニニ ニニ ニニ ニニ ニテ ニニ ニラ ニー №9920. 52390497. 14%25ШВ=5====== шша м т ышанын = 
21@ F=76800!/(256*CTZ+F1T2) 

220 FRINT И51МбБ"+=#######,.##Н2";ЕР 

250 SDUND 8,10:500М0 @0,FTZ:SDUND 1,4CTX 


240 RETURN 
250 'т------------------------- ў" イス フ " ルイ SUB--ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
269 _ІМЕ (10,10) - (10,90) ,РЅЕТ, 5: 11МЕ (10,50) - (620,50) „РЕТ, Ы: 27・ ヨ コッ 7 


270 LINE(19+.95*TM。45) -(19+.95*TM。55) ,PSET,6:LINE(19+.1*TM。45)-(19+.1TM,55) ,PSE 
ШОЕ жака» фа бач asi ia... ә а #9 ТО ағ) 

280 IF F<=199 THEN MaG=19 ELSE IF Ғ>100 АМ) Ғ<-1000 THEN МАбз100 ELSE IF Ғ>1000 
AND Ғ<-10000 THEN МАб-1000 ELSE IF Ғ>10000 THEN МАб6-10000:7-...--- 977797793974 
290 MAB$=STR$ (MAB):MAG$=RIGHT$ (MAB$,LEN(MAB$)-1):DISP$="1/"+MAB$+"sec" 

200 HL=INT(.1*MAG#TW/(F*2)):S=10;:' リト ッッ ッッ ッッ ババ ーー つつ し (107 イブ NT ES ñ 29- ト 4 
210 SYMBOL(500,55),DISP$,1,1,6:SYMBOL(0,46),"0",1,1,6:SYMBOL(5,0),"+",1,1,6:SYMB 
01 59 a saa a a s... l... за 。。。。。 5 @- ТЯ КЕ КИЙ ...%979 リュ リリ ョ 7 
320 CONNECT(S,20)-(S+HL,20)-(S+HL,B0)-(S+2#HL,B0)-(S+2#HL,20),4: +... 43 10" 7 
330 S=S+2*#HL:IF 52500 THEN 350 

340 5070 320 











550 LINE(619,29) – (659,80) ,Р5ЕТ,0,ВҒ: 5%) 269392772779 72 

520 RETURN 
ネネ ポレ ジス タ 7 の 使い レジ スタ 7 は ミク サ (混合 器 ) と 呼ば れる , 一 種 の 入力 受付 け ス イッ 
か た に つい て チ で す . 文 の 書き か た は 


SOUND 7, [排除 する レジ スタ に 割当 て られ た 数 値 の 合計 ] 
と な っ て いま す . さて, 各 レ ジス タ に 割当 て られ た 数 値 で す が 


а 2 る 2 1 а 8 + 2 
レジ スタ 4 ・ 5 4 

レジ スタ る (レジ スタ 8 に 送る を ど 寺 )………… 8 

レジ スタ ダ や (ピゲ ズ オタ 913 和 9096 ) А. 16 

Ë АБИР 1 Z УЛО в): 32 


жұз БОС НО FB ek ОО ЮЕ. J: b 2121 ZZ 24:52 
ら の 音 を 送り た か っ た ら , 排除 し た い の は (1 十 2 十 8 十 16 十 32) G+ 
か ら , SOUND 7,59 と いう こと に な り ま す . 違う 表現 を すれ ば (63 一 


送り た い レ ジス タ に 割当 て られ た 数 値 の 合計 ) に な り ま す . 
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波形 加工 が 効果 音 の きめ 手 








* ま ユー ティ リティ プロ グ 
ラム を ヒン ト に する 


※ 波 形 加 工 用 レジ スタ と 発振 周波 数 
0.2Hz : CT=93 20 

0.5Hz : СТ= 37 ЕТ=0 

1 Hz : СТ=19 ЕТ-0 

2 ОСК 9 ЕТ=96 

4Hz :СТ-4 ЕТ--173 

6Hz : CT=3 FTー32 

10Hz : CT= 1 ЕТ= 224 


※ 周 期 (period) : 1 回 の くり か え し に 
必要 な 時 間 . 周波 数 の 逆数 で , 7:55 
ば 0.5Hz の 周期 は 2 秒 , 10Hz で は 0.1 秒 
に な る 


* ネ 音 の 止め か た 


SOUND 文 の 使い こなし の ポイ ント は , 波形 加工 用 レジ スタ に ある 
と いっ て も よい で し ょ う . さき ほど と 説明 し た 波形 加工 用 発振 器 を 使い , 
加工 用 レジ スタ 13 を 使っ て 波形 を 指定 し ます . 波形 は 全部 で 8 つ あ り , 
それ ぞ れ 数 値 で 指定 し ます (0—15). を な お レジ スタ 8・9・10 は すべ て 
「16」 を 指定 し を な いと, 加工 され た 音 は 出 ま せん . 

サン プル プロ グラ ム は , 方形 波 お よび ノイ ズ を 音源 と し て , 波形 を 
指定 する と 共に 加工 用 の 発振 周波 数 を 変え て, どの よう な 音 が 出る か 
を 試す も の で す . それ ぞ れ の 数 値 を メモ し て お いて , 本 格 的 な 効果 音 
作り に 役立て で る と よい で し ょ う . この ユー ティ リティ プロ グラ ム を 使 
っ て 得 た ヒン ト の 一 例 を 書き 出し て み ま し ょ う . 

波形 周波 数 ノイ ズ 周 波数 加工 周波 数 出 て くる 音 


10 高音 5Hz 虫 の 鳴き 声 

8 高音 5Hz コッ プ を た た く 音 

8 中 音 5Hz От 

3 低音 5Hz ピス トル の 発射 音 

8 低音 2Hz 工事 現場 の 杭 打 ち 
12 低音 2Hz SL が 速く 走る 音 

10 低音 2Hz SL が ゆっ くり 走る 音 
10 高音 1Hz 波 の 音 


レジ スタ に 書き こま れ た デー タ は , 別 プ ログ ラム を 実行 (RUN) し 
た り , リセ ッ ト を か け て 消さ を いか ぎり , 保存 され て いる の で , 持続 
する 音 (レジ スタ 0 一 6, レジ スタ 13 を 使っ た も の で 持続 波形 を 選ん 
だ と き ) は , プロ グラ ム 実 行 中 , ずっ と 鳴っ て いま す . し た が っ て こ 
れ ら の 音 を 消す た め に は レジ スタ 8・9・10 の デー タ を 0 に する か , Ж 
振 器 の レジ スタ の デー タ を 0 に し な けれ ば いけ ませ ん .・ 

時 間 を 調整 し , 一 定時 間 の 音 を 出し た あと , 音 を 消す 方 法 と し て は 
FOR 一 NEXT を 使う ほか に , ON TIME や ON INTERVAL 文 を 使 
いま す . ゲー ム プ ログ ラム を など で , 効果 音 を 使う と き は 音 の 止め か た 
に つい て も よく 考え て お か な いと , 音 が 出 て いる 間 に 他 の こと が で き 
な か っ た り し ます の で 注意 し まし ょ う . 





159 


ш Ж 
р 13 и 


Ct Sz (т.ж 
БЕКЕТТЕРІ. CHF198…6.4 


Бола езеді 2...0) 2 2 
5 人 に … ビ 4 2...7)? 2 

WY ド に 27808 こ ぃ 3) ? 14 

Ft FCT: 25) 2 50 

ЗУ 5) 1071 Рэ 77399 MANEY РЕН 





プロ グラ ム 実 行 中 の 画面 





100 ′ = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = ニニ ニニ ,749 uy4u 77494) オト 3 972 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


110 DEFINT A-Z:WIDTH 80, 25:С15 

120 PRINT STRIN6$(78 リー の) リト ッッ トト トト し に し し に "46:29 ヒ 7 

150 COLOR 5:PRINT" kà 4 hhh k A дь [ч | 4444 1888 Ak. Ak. Ak. " 
140 РКІМТ: РКІМТ" З 4 8 10 rt 12 13 14" 

150 COLOR 7:PRINT 5ТКІМ6%(78,"-") 

150 COLOR 5: РКІМТ: РКІМТ "CT=1・・・18Hz CT=2・・・9Hz ET=4・・・SHz CT=9・ 
・・2Hz " 

170 PRINT:PRINT "CT=20・・・1Hz CT=49・・・9.5Hz CT=B@・・・9.25Hz CT=189・・・9.1H 


-" 
z 


180 COLOR 7:PRINT STRING%(78,"—-") 

190 “2197а7 

200 LUCATE 0,12 

210 INPUT "モト ニナ 5 オト (1・・・2997 オ トー 2・・・7 イ 2") ";MENU:IF МЕМИ<1 OR MENU?2 THEN 210 
220 ON MENU GOSUB 330,390:PRINT 

230 ІМРИТ"АЛАЛ トル ーー ジマ スカ (9・・・・13) ";WAVE:IF МАМЕ<@ OR МАУЕ215 THEN 230 

240 РЕКІМТ:ІМРИТ"у19%/ テイ (Ti 1・・・・255) ";CT:IF СТ<@ OR CT>255 THEN 240 


250 r t 

260 SHUND 8,16: リト レト レッ ッッ ッッ ーッ ЕДО ルッ "メグ 8 カラ オト 92* ス 
270 SOUND 12,С67:7%-:%-554%5-5..6666 66066602... 用 リリ ヨウ ルリ "メグ 

280 SHUND 15,МАМЕ: оона sua a s Sus кү ТР 42 "392 


290 PRINT:PRINT" コ ルカ "ジテ イノ オト テス 9%Ж-3 93272 АМҮКЕҮ PUSH" 

300 IF ІМКЕҮ%-"" THEN 300 ELSE SUUND 8,0:С15: КОМ 

310 “жжжя» SBUARE МАМЕ SETTING 

320 PRINT:INPUT "ジュ ウリ スウ (1・・・ テ イオ フ 2・・・ チ ュ ウ オリ ーー 3・・・ コ 9 オフ 9) (МН 
330 IF LMH<1 OR LMH:3 THEN 550 

340 IF LMH=1 THEN FT=255 ELSE IF LMH=2 THEN FT=75 ELSE FT=20 | 
350 SOUND @,FT:SOUND 1,0: 500М№0 7,(63-1):7%%%ң; кену ЛАК ру" 297 / も 9 テイ 
360 RETURN 

370 “**#*** NOISE SETTING 

380 РКІМТ: ІМРОТ "リュ ウル スウ (1・・・E ヒ 71 2,++974)";Е:1Р Ғ<1 OR Ғ>2 THEN 390 

390 IF F=1 THEN NT=S@ ELSE NT=1 

400 SHUND 6,NT:SOUND 7, (63-8): 4...... イス ジュウ ルス ウト L23297 / セテ イ 
410 RETURN 
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音 の 見 本 帖 を 作る 








* 一 覧 表 の 形式 で デー タ 
を 与え る 


ネネ サン プル と その 解説 


いま まで の 話 を まとめ た , 効果 音 の 見 本 帖 を 作り まし ょ う . SOUN 
D 文 は レジ スタ を 指定 し , 数 値 デ ー タ を 与え る と いう , ご く 原 始 的 な 
書き 方 の 文 に を な る の で , プロ グラ ム を 見 た だ け で は 何 が どう な っ て い 
る の か 分 り に くい も の で す . そこ で 少し で も 分 りや すく する た め の 一 
例 と し て 右 の よう な プロ グラ ム を 作っ て み ま し た . 

この プロ グラ ム で は レジ スタ 0 一 レジ スタ 13 に 与え る デー タ を すべ 
て 書き 出す よう に し , し か も DATA 文 で 与え る よう に し て いま す 。 プ 
ログ ラム に よっ て は ムダ な 部 分 が 増え を ます が (デー タ の 0 の 部 分 が 多 
く な っ て し まう ), 一 覧 表 の 形 に を な っ て いる の で 見 や すく な り ま す 、 


それ ぞ れ の レジ スタ に 与え る デー タ は 配列 D (1) に 読み こま せ , 演 
奏 も 同じ よう に , FOR 一 NEXT の 形式 を 使っ て いる の で , SOUND 文 
その も の を いく つも 書く 必要 は あり ませ ん . 行 番号 410 の サブ ルー チン 
で キー 入力 待ち を し , 入力 が な い 間 は ひと つの 効果 音 を ずっ と 出し て 
いま す . キー 入力 が ある と , レジ スタ 8 ・ 9 ・10 の 音量 調整 用 の レジ 
スタ に すべ て 0 が 書き こま れ , 音 を 止め て か ら 次 の 効果 音 デ モ に 移る 
よう に な っ て いま す . で は , 個々 の ルー チン を 説明 し まし ょ う . 

@ へ リコ プター 

ここ で は ノイ ズ を 使い , 波形 加工 用 レジ スタ は 12 番 を 使っ た , くり 
か え し 波形 に し て いま す . 方 形 波 か ら 低い 音 を 発振 させ る と , また 違 
っ た 感じ の 音 に な り ま す . 

@ 路 切り の 鐘 

“カン ・ カ ン ” と 鳴る 鐘 の 音 で す . 3 音 を 同時 に 発振 させ , 複雑 な 音 
色 に し て いま す . 発振 周波 数 を さら に 細か く 設 定 し , 音 を 微妙 に ずら 
+ (A と いう 音 の 2 倍 の 周波 数 十 々 を A^" と いう 音 に する ) と , より リ 
П ОТО ЕКЕМ 
өшсін 

"リー ン ・ リ ー ン ”" と いう 感じ の 音 で す . 音 を 出し た り 止 め た り , JE 
波数 を 変 た たり すれ ば , さら に 効果 的 で す . 

@ オ ー ト バイ 
エン ジン 音 に 似せ て , 低い 音 を ずっ と 出し た まま に し て いま す . 




















100 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = ニニ = ニ == SOUND DEMO =============================a==== 
110 8ә1%4)/ 273129 9%972.9%7) 289 #775 АМҮ KEY PUSH 
120 DIM D(13)』 9・・・・13 ノ ルリ トス 9 77-939 ЛЬ" 
150 RESTURE 320:GOSUB 23@:'^'17°7 
140 RESTHRE 330: 6050В 230: 2752ж) 
150 RESTURE 340:GOSUB 230: Е97М 
160 RESTURE 350:60SUB 230: ¿25 
170 RESTURE 360:GOSUB 230: "4- ト n° 4 
180 RESTORE 370:B0SUB 230: 751 
190 RESTDRE 389:BHSUB 230: 722 
200 RESTORE 390:60SUB 230: 12997 7% ул“ / 749% 
210 FOR 1=0 TO 13:S0UND I,@:NEXT:END 
220 ' 
250 FOR 1=@ TO 13:READ D(I):NEXT:GOSUE 24@:6050В 410: БАТА 3 35 97729 
240 FOR 1=@ TH 13:SDUND I,D(I):NEXT:RETURN: ‘177% уу SUB 
250 ' 
260 “--------- Ж” йа ли. ЖЕДЕ ваты Ғғ - % --------- 
270 гал 02 лат зб. 6 7 в 9 19 4 12 13 
280 “------------------------------------------------------------------------- 
290 ЕТ ОТА ЕС ДЕЛ ЁТ NT 7 8 9 10 FT CT 13 
300 ' === "БИ ШЕФ === > NOISE МІХЕК VOLUME FREQ 154 
ІП” эке a I T S sk. aa A Sus kalika asa = suku Z kasu А ША а ls LD 
320 DATA 0,0,0,0,0,0, "е 55, 1,0,0, 200,0, 12 
520 DATA 100,0,50,0, 20,0, @, 56, 15,14,15, 0,10, 8 
340 DATA 0,0,0,0,0,0, 15, 55, 16,0,0, 120,10, 3 
350 DATA 50,0,50,0,0,0, г, 0, 16,16,0, 173,0, 10 
300 DATA 0,14,0,0,0,0 28, 56, 10,0,0, 0,0, а 
370 DATA 0,0,0,0,0,0, 5, 55, 16,9,0, 0,150, 8 
580 DATA 0,0,0,0,0,0, 15, 55, 1,0,0, 0,150, 8 
390 БАТА 0,0,0,0,0,0, 34, 55, 16,0,0, 0,20, 8 
400 
410 MHILE ІМКЕҮФ= "": НЕМО: 44:44... ...... イリ 
420 FOR REG=8 TO 10:SDUND REG,Ü:NEXT: “ңы! б... ォ オト 9 カス 
439 RETURN 
*** より 効果 の ある 濱 いま の プロ グラ ム を も と に し て , より 効果 的 な 音 の 演出 を する た め 
ШАХ ЕЭ II 23 U 5 аер? 





@ 時 間 の 調整 : 音 を 出す ・ 止 め る こと の くり か え ぇ し を , 
する た め , 演奏 時 間 を じょう ず に 設定 し ます . 

@ 音 の 演出 : 単 一 の 効果 音 に し な いで , 出 て くる 音 に ひと つの 物語 を 
与え る (SL な ら 発 車 一 徐行 一 急行 一 坂 を の ぼる 一 停止 させ る な ど ) 
と , より 親しみ の ある も の に な り ま す . 

e 偶然 性 を 持た せる : 発振 周波 数 を 乱数 に よっ て コン トロ ー ル する な 
どの 工夫 で , 自然 界 の 音 に 近く な り ま す . 


自然 な 感じ に 
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PLAY 文 の 基礎 








*PLAY 文 の 基本 は 文字 
列 に よる 命令 


※ 付 点 音 符 や 付 点 休 符 は , 表わさ れ た 
音符 の 1.5 倍 の 長 さ を 意味 する . た と え 
ば 4 分 音符 を 4 の 長 さ とし, 2 分 音符 
を 8 の 長 さ と する と , 付 点 4 分 音符 は 
6 の 長 さ に な る 


*※*※PLAY 文 に お ける 
デフ ォ ル ト 値 


音楽 演奏 用 の PLAY 文 は マク ロ 言 語 (macro language) に な っ て お 


り , 命令 は 一 連 の 文字 列 に よっ て 与え られ ます . まず , それ を まとめ 
ӘЗІР лу 


өФЕШ:С, Ú, E, F, С, А, B と オク ター プ (01—08) 
@ 半 音階 : 十 ま た は 一 を 音符 の あと に つけ る 
@ 音 の 長 さ : L1 一 上 64, 付 点 は 音符 の あと に ピリ オド を つけ る 
@ 休 止 符 : R1 一 R64, 付 点 は 数 値 の あと に R を 重ね 書き する 
@ テン ポ : T32—T255 
@ 音 量 : V0 一 V15 
@ 波形 50-515, 周期 は M0 一 M65535 
@ 別 の 音階 表示 法 : N1 一 N96 で 音階 を 表示 
FM-77 は , PLAY 文 の あと に 書か れ た 文字 列 を 読ん で , その 指示 に 
従い ます が , デフ ォ ル ト 値 は つぎ の よう に 設定 され て いる の で ,「 書 か 
れ て いな い 」 部 分 は デフ ォ ル ト 値 に 従っ て 解釈 し ます . 
@ オ クタ ー ブ 指 定 : 04 (ラーA の 音 を 440Hz と する ) 
ө テン ボ ポ : Т100 
@ 音 の 長 さ : 4 分 音符 に 相当 (し 4) 
@ 音量 : 中 間 (V8) 
し た が っ て 
PLAY “ес” は , PLAY “У8Т1001404ЕС” 
78 ОЗЕ 


と ころ で PLAY 文 で 書い た いろ いろ な 命令 は , FM-77 を リセット し 
な いか ぎり 内 部 に 残っ て いま す . 通常 の 変数 は バ NEW" あ る い は ^R 
ОМ” で すべ て 0 (数 値 変数 ) か ヌル (文字 列 変数 ) に を る の で す が , 
SOUND 文 , PLAY 文 で セ モット し た 命令 は この 法則 が あて は まり ませ 
ЖАК ЛЕ ЭО 

100 PLAY "УЗС” 

と し た あと , NEW と し て いっ た ん プロ グラ ム を 消し て 

100 PLAY *С” 

と いう 文 を 書い で も , 新しい プロ グラ ム の 音量 に つい て は , も と も と 





PLAY 文 の いく つか 


の 書き か た 
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の デフ ォ ル ト 値 で も る 「V8」 で は な く , ひと つ 前 の プロ グラ ム の 文 で 
指定 し た 「V3」 が その まま 適用 きれ て し まい ます . 
も う ひ と つ , PLAY 文 で は 変数 を 使う 書式 が あり ます . 
マク ロ 用 命令 変数 : 
と いう 書法 に よる も の で , た と えば VOL と いう 変数 に 6 を 代入 し 
PLAY *у=уО!;” 
と いう PLAY 文 を 書け ば , これ は 
PLAY °`V6” 
a が を ます る 


PLAY 文 の 基本 は 文字 列 操作 な の で , この 操作 さえ まち が えな けれ 
ば , いろ いろ な 書き か た が 許さ れ ま す . サン プル で その 代表 例 を 見 ま 
ЕЗ7 

行 番号 120 は も っ と も オー ソ ド ッ クス な も の で , いわ ば 文字 列 定数 の 
形 で 演奏 を 指示 し て いま す . を な お サブ ルー チン は 初期 設定 値 に 戻す た 
め の も の で , 本 質 的 に は 不要 で す が , 一 種 の 安全 装置 に な り ま す -・ 

行 番号 150 は READ 一 DATA に よる も の で , 変数 に 音階 を 与え を て いま 
+. 行 番号 190 も お な じ よ うな 使い か た で す ・ 

行 番号 230 は , 音量 と テン ポ を ひと つの 変数 (VOL) で コン トロ ー ル 
し て いる 例 で す . 





110 
120 


140 
150 
160 


180 
190 


210 
220 
2350 
240 
250 
260 
270 





!z=============== 


'+ チョ セリ ジテ イ 
6050В 279:PLA 


138” 


“жж READ DATA カ "9 


GOSUE 279:READ MUSIC$:PLAY MUSIC$+"R1" 


DATA cdef 


170 ' 


'+## モリー ルリ ジテ イ 


GOSUB 270:DOREMI$="cde":PLAY DOREMI$+"RI" 
200 ' 


まま 8719 97422 
GOSUB 270 

FOR VOL=6 TO 10: 

END 


"PLAY2" フ 3 上 ョ ウシ ド ュ 


PLAY"04L4R4T199V8B":RETURN 


ү"04 cdef":PLAY"R1" 


и) 


ТЕМРО=У01 +25: PLAY"V=VOL; "+ "Т=ТЕМРО; "+00КЕМІФ: МЕХТ 


っ テキ け ナ も ノニ も ト " ス 2 SUB 
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“SGS” コマ ンド が PLAY 文 の キー ポイ ント 








* 音 と 音 の つなが り を 
ふせ ぐに は 


* ネ ユー ティ リティ プロ グ 
ラム で , 目的 の 音色 を 探す 


楽譜 が あれ ば , それ を 忠実 に PLAY 文 に 移す こと で 基本 的 な 音 薬 演 
奏 は 可能 に を り ま す . た だ し ひと つ だ け 注 意 し な けれ ば いけ な いこ と 
と し て , た と えば “E FE F” と 3 つの 音 が 続く と き , 波形 指定 な し の 
演奏 で は この 音 は つなが っ て し まい , ひと つの “ F” に し か 聞え ませ 
д. 楽器 の 場合 は 音 が だ ん だ ん 弱く な っ た りす る こと が 多い し , た と 
ぇ ば オル ガン で も “ ド ” を 弾い て 指 を 離せ ば そこ で 音 は 途切れ る た め 
に ちゃ ん と 3 つの 音 に な り ま す . 

これ を さけ る た め に は PLAY 文 を 

“ ド ・ 短 か い 休 符 ・ ド ・ 短 か い 休 符 ・ ド " 

と いう よう に 書く か , 波形 指定 を し て , 時 間 と 共に 音量 が 変る よう に 

し ます . 波形 と その 周期 (周波数) の 指定 は SOUND 文 と よく 似 そ い 
ます . 波形 に つい て は まっ た く お な じ で す . 周期 に つい て は 

PLAY *МООО” 

と し , 〇 〇 〇 に 数 値 を 入れ ます . 数 値 は 16 ビ ッ ト 分 (0 一 65535) ©, Ж 
振 周波 数 は Nー1 一 65535 と し て 

#= 122880-- (256 х М) = 480- N (Hz) 

に な り ま す . 波形 指定 を すれ ば , 音階 が お なじ で も 音 が つなが っ て 聞 
える こと は あり ませ ん . 


サン プル プロ グラ ム は "ドレミファ ソ ラ シ ド "を 3 つの テン ポ で 演奏 
ха, 波形 と 周期 の 設定 に よっ て どう 変わ る か を 試す も の で す . 何 回 
か 実行 させ , 目的 の 音色 に 近い も の が あっ た ら メ モ を し て お き ます . 
жь, テン ポ に よっ て 聞え か た が ずい ぶん 違い ます し , 場合 に よっ て 
は 音 が ひど く 小 さい ( 例 > テン ポ が 速い の に , 周期 が 遅い …… 発振 周 
波数 が 低い と , 十分 な 音量 で 演奏 する 前 に , つぎ の 音符 を 演奏 する ) 
こと も ある の で , 必 ら ず 3 つ の テン ポ で 確認 し て くだ さい ゆい ・ 

な お , この プロ グラ ム で は 波形 指定 を し を , SHAPE に “16” を 代 
入 し た 時 に し て いま す . この 時 は 周期 入力 を 飛ば し て すぐ に 演奏 きせ 
て いま す . また, 演奏 実行 の 間 , FM-77 は 他 に 何 も し な いで 演奏 の 終 
了 を 待っ て いる わけ で は あり ませ ん . ここ で は 演奏 音 と 画面 に 出力 す 
る 文字 列 が お な じ タ イミ ング に な る よう , 工夫 し て いま す ・ 
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жжж“58М3000” な ど が いま の ユー ティ リティ プロ グラ ム で , いろ いろ な 音 が 出る こと が 分 
万 能 型 命令 り ま す が , 曲 を 仕上 げ る 前 に 音符 通り に 演奏 し て いる か どう か な ど を 
知る 時 は , 755 214 “58М3000” と する と , ピア ノ の よう な 音 で 演奏 し 
て くれ る し , すべ て の 音 が つなが ら ず に 聞え る の で , これ を 標準 的 な 
小形 に し ます . な お , それ 以外 で は 
“S3M1000"…… スタ ッ カ ー ト ( 音 を ひと つ ひ と つ 区 切る ) 
“S14M500"…… ビブ ラー ト ( 遅 い 曲 で 有効 ) 
“S12M400"…… トレ モロ 
な ど が 利用 価値 の ある 波形 で す . 





100 "ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = エリ リゾ 9 ウル 7 イト リョ サイ ノブ オリ 有朋 7 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
110 MIDTH B9@,25:CLS 
129 PRINT STRING$(78,"—"): ненен енене ТЕУ tg 


130 COLOR 5: РКІМТ" hà 4 で k Ak дь 11 4444 4858 ль ДЬ A. 
"iiEULUR 6: РКІМТ" ШЕШЕН ":COLOR 5 
140 PRINT: PRINT" 3 4 8 19 11 12 13 14 


"y: COLOR 6:PRINT" 16" 

150 COLOR 7:PRINT STRIN8$(78,"—") 

150 COLOR 5:PRINT:PRINT"M=48・・・199Hz N=489・・・1 9Hz NM=4899・・・1Hz М-9000... 
. 5Hz M=48909・・・9.1Hz " 

170 COLOR 7:PRINT STRINB$(78』"ー") 

180 "= ュ 9 リ ョ 7 

190 PRINT:PRINT 

200 INPUT"N7 イ Л トリ ル ラ エラ ヒ " ?2 カ (@・・・15) ";5НАРЕ 

21@ IF SHAPE=16 THEN PLAY"V10":G0TO 250: °• «ул ラテ イカ ナイ トキ 

220 INPUT "リウ ュ 9 キ ñ 4792 72 カ (1・・・65535) ";CYCLE 

230 PLAY"S=SHAPE;M=CYCLE; " 

240 "エッ ツウ 1・・・・・・ ッ し し し ユリ 7 リト リグ туй” 

250 PRINT:TPLAY=69 

260 PRINT"TEMPO=";TPLAY;" 1404 ccddeeffggaabb 05 с R4 05 с 04 bagfedc R4" 
270 PLAY"T=TPLAY』 1404 ccddeeffggaabb 05 с КА 05 c 04 bagfedc R4":GOSUB 400 
280 'туу92...,+,+++,,4«Ба®Фу* 12 УЖ" 

290 PRINT:TPLAY=120 

300 PRINT"TEMPO=";TPLAY;" 1404 ccddeeffggaabb 05 c R4 05 c 04 bagfedc R4" 
310 PLAY"T=TPLAY; 1404 ccddeeffggaabb 05 с R4 05 c 04 bagfedc R4":GOSUB 400 
320 "ІЗ bd ОЖ" 

330 PRINT:TPLAY=220 

340 PRINT"TEMPD=";TPLAY;" 11504 ccddeeffggaabb 05 с R4 05 с 04 bagfedc КА" 
350 PLAY"T=TPLAY; L1604 ccddeeffggaabb 05 с К4 05 с 04 bagfedc R4":GOSUB 400 
360 

370 FOR M=1 TO 2000:NEXT:GOTO 110 

380 

390 「 エ リリ ウッ "カット 用" メリ ウジ ュ リリ ョ 7 コット ロー スル SUB 

400 T=INT(1.3E+96) /TPLAY:FUR M=1 ТО Т:МЕХТ:КЕТИЕМ 


























166 





和音 と 伴奏 の つけ か た 








* 単 純 な 曲 も 伴奏 で 見 違 
える よう に 


ж ОР 
奏 の つけ か た 


ж PLAY 文 を ど に は 大 文字 も 小文字 も 
使え る . 音階 は 小文字 に , PLAY 命令 
は 大 文字 に する と , 文字 列 が 続い て い 
て も , プロ グラ ムリ スト が 読み や すく 
な る 


FM-77 は 同時 に 3 つの 音 を 独立 し て 出す こと が で きま す が , それ ぞ 
れ の パー ト ( 声 部 ) の 音量 を 変え た た いと き (主旋律 は 大 きめ の 音 で , 
伴奏 は 小さ め の 音 で 演奏 する な ど ) は , 波形 指定 は で きま せん . な お 
波形 指定 を し て 3 つの 音 を 同時 に 出す と , 音 は に ご り 気 味 で . きた な 
く な り ま すか ら , 曲 に よっ て 波形 加工 を する か どう か を 使い 分 け ま す . 

簡単 を 曲 で あっ て も , それ に 伴奏 を つけ る と 見 赴 える ほど 立派 に な 
り ま すか ら , た と えば エレ クト ー ン や ギタ ー 用 の 楽譜 など を 参考 に し 
с, 2 音 や 3 音 を 使う と よい で し ょ う ・ 


自分 で 作っ た 曲 , ある い は 楽譜 が あっ て も 伴奏 の パー ト が 書か れ て 
いな いも の な ど は 自分 で 工夫 を し な けれ ば いけ ませ ん . いち ば ん 簡単 
な の は , 協和 音 を つけ て ゆく 方 法 で す . 

@ 完全 8 度 : ちょ うど 1 オク ター ブ プ 離 れ て いる 音 . 主旋律 が "ドレ ミ " 
な ら , それ より 1 オク ター プ 低 い “ ド レミ " を 演奏 し ます . 

eE 3 度 : 主旋律 が “ ミ "” な ら そ こ か ら 2 音 低い “ ド "” を 演奏 する と 
E 3 度 の 関係 に を な り ま す . この 協和 音程 が 万 能 と いえ ます . 

@ 完 全 5 度 : 主旋律 が “ ソ ” な ら , 4 音 低い “ ド " と いっ た 関係. 

@ 完 全 1 度 : い わ ゆ る “ユニ ゾン " と 呼ば れる も の で す . 本 物 の ユニ 
ゾン は , 音量 が 増し , 力強い 音楽 の 表現 に な り ま す が , FM-77 で は 
その 効果 は ほとん ど 出 ませ ん . 

も う ひ と つの 方 法 は , ギタ ー の 伴奏 に よく 使わ れる , コー ド で リズ ム 
を 刻む 方 法 で す . た だ し 一 般 の コー ド は 最大 で 3 音 を 同時 に 鳴ら し た 
り し ます が , FM-77 で は 3 音 を 伴奏 に は 使え な い (主旋律 の 分 が な く 
な を っ て し まう ) ОС, 2 音 で コー ド を 演奏 し て ゆき ます < コー ド は 何 
種類 も あり , くわ し いこ と は 専門 書 を 見 て いた だ く と し て , ここ で は 
いく つか の 例 を 紹介 し まし ょ う ・ 

e G 2 л е К, НИ 7 В АЕ 5" 

3 拍子 の 曲 を な ら , 低い “ ド ” を ひと つ , 高い “ ド "・“ ミ ” を 2 つ 演 奏 

する (つま り 「 ド ン パッ パッ 」 に な る ) と いっ た 使い 方 
ө СЛИКАНА 
ФӨК:%7у”, “к”, “>” の 組合 せ 
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100 '===============šs== j" JU)" 57% た を ネ すま リー リー た ルー に を メー ネーー ナ ーーーー を ネー 

110 РГАҮ"Т1@@й","Т1@@" 

120 READ М1%,М2% 

150 IF Mi$="END" THEN END 

140 PLAY М1%,М2% 

150 БОТО 120 

160 ' 

170 ‘"жж メロ テ " イ ++ " W. ОК Е. 

180 DATA "15", "12" 

190 DATA "1_804садїс4. А8", 1802Ғ05с02Ғ403с02403с02403с": “72217 

200 DATA "L804cagfd4.R8" , "L802f03c02f03c02b-03d02b-03d": “47921 

210 DATA "LBH4db-aqe4.RB" 4 "L802b-03d02Zb-03dcece": 272 77 
220 DATA "1 80509с04Ь-да4.К8", "1803сесеҒс03а03с": “уу Лой 
230 DATA "L804cagfc4.R8", 1802Ғ035с02403с02Ғ05с02403с": "93522 

240 DATA "L804cagfd4.R8", "L802f03c02#0D3c02b-O3d02b-D3d": 2177? 

250 ' 

20 DATA "513М400", "513400" 

270 DATA "180496 -ад05сссс", 1802 Һ-03402Ь-03асесе": 97 9754 
280 DATA "L805dc04b-gf4.R8" , 1802 Ь-03сед+4.К8": 99299 

290 ' 

300 DATA "T10553M1500", "T10553M1500" 

310 DATA "051 8ааа4ааа4", "D4L8f#ff4ff$f4"; ЭТЭ ЛЛ ЛЕ 25299 рл 
320 DATA "05LBa06c05f.q16a4RB" "041 Вғас.еі6#К8": 22777024 

330 DATA "05LBb-b-b-4b-aaa"」 "0418адаадағғғ": Е ЕШ 

340 DATA "051 Вадд+д06сс4", "0U4LBfeedeee4"』 Бул NOU АН 

350 DATA "05L8aaa4aaa4s", "0418+++4++#+4": ウフ バル 77% Ыы 99" рл" 
360 DATA "П518а05с05+.д015а4КВ","0418+ас.е15&+Е8": "スス "カナル 

370 DATA "0H5LBb-h-b-4b-aaa" 。 "D4L8ddd4dfff"; “D95334 try 

380 DATA "OóLBcc05b-gf4.", "D4L8eeget4.":; 497983 

390 DATA END,END 











** ポ ジン グル ベル を 例 上 の プロ グラ ム は ジン グル ベル を 2 声 を 使っ て 演奏 させ る 例 で す . 

{С 全音 楽譜 出版 の スコ ア を 基本 に し て いま す (竹田 由 彦 編 ). 演奏 の 表情 
づけ は 3 つ に 分 れ て お り , 行 番号 180 で オー ソン ドッ クス な も の を , {ТЖ 
2260 G 3, 5 度 の 協和 音 を , 行 番号 300 か ら は 鈴 の 音 の 感じ に な る 
波形 を 選び , 音階 も 1 オク ター ブ 上 げ ば て いま す . な お 最初 の 部 分 の 伴 
УУ иу е ドー ” と いっ た よう に , 8 分 音 
符 で こま か く 進 行 し て いま す が , 主旋律 の 音符 (休止 符 も 含む ) の 総 
合計 と , 伴奏 の 音符 の 総合 計 を 合わ せな いと いけ ませ ん . 自分 で 勝手 
な 長 さ の 音符 を 使う と , あと で 拍 数 を ど が 合わ な く な り ま すか ら よ く 
注意 し まし ょ う . な お , 最後 の “ジン グル ベル ……・ ” か ら の コー ダ に 
近い 部 分 は 。 わずか に テン ポ を 速く し まし た . 
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FM-77 を 鍵盤 楽器 に する 








* 黒 鍵 も つい た 本 格 派 


**※INSTR 関 数 を 使う 


FM-77 の キー ボー ド を 楽器 の 鍵盤 代り に し て , 作曲 の 手伝い や 演奏 
その も の が 楽し め る よう に し まし ょ う . この プロ グラ ム で 作っ た 鍵盤 
は 音域 が 十分 と は いえ ませ ん が , 簡単 な 曲 を な ら た いて い の も の が 演奏 
で きま す . まず リス ト の 450 行 以降 を 見 て くだ さい . 

шочо О Ери РОА ГОК の キ 
ー 配 列 の 上 段 を 半音 の キー ( 黒 鍵 ) と し て 使っ て いま す . ат 
は テン キー も 使っ て お り , 行 番号 500 の “1,2.3” は テン キー 部 で す 


ある キー を 押し た と き , あら か じ め 設 定 し た 音 を 出す 方 法 は いく つ 
か が 考え られ ます . ここ で は キー 配列 に し た が っ た 文字 列 を 用 意 し , 
イン スト リン グ 関 数 と MID $ 関数 の 組合 せ で 音 を 出し ます . た と えば 
カタ カナ の “ ソ " を 押し た と き を 考え まし ょ う . M1$ の 3 番目 に “ソン” 
が ある の で , 行 番号 220 の P は 「3」 に な り ま す . 行 番号 260 で PLY$S は 
М01% (“асе”) の 中 か ら 1 文字 を 探し ます . MIDS (MU1$ , 
Р, 1) … つ まり MU1$ の 左 か ら P 番 目 の 文字 を 1 個 取 出し て , これ を 
PLY$ と する の で , いま の 場合 は 3 番目 , 結果 的 に PLS は “С” に 
な る と いう わけ で す . 

行 番号 230 一 250 で , P の 値 に よっ て オク ター ブフ プ 値 を 決め て いる の で 
実際 の PLY$ は “0O4" 十 "<”" に を な る の で す が , カタ カナ の 文字 か ら 音階 
を 決め て いる の が 行 番号 220 一 260 で す . 

な お 半音 に つい て も 同じ 考え で 処理 し て いま す が , ここ で は P の 値 
が 0 の と き (M1$ の 中 に , 押し た キー の 文字 が な いと き ) に , 半音 の 
キー を 押し た か どう か を 調べ て ( 行 番 号 320), 押し て いれ ば 半音 を 上 
ば げ ば る 処理 を し ます . 

な お , 押し た キー が どの 音階 な の か を 画面 に 表示 し て , あと で プロ 
グラ ム の 文中 に 生か せる よう に し て いる こと と , 小節 の 区 切り な どの 
目印 に な る よう に , “※ ま "マー ク を 自由 な 位置 に 入れ る よう に も し て い 
ます . 配列 を 使っ て , 押し た キー の 音階 を メモ リ に 入れ て お け ば 再演 
奏 も で きま す . 音階 の 訂正 ルー チン を ども 作れ ば より 実用 的 に を る の 
で 工 失 を じ て み まし ょ よう. 人 1*P は テン キー 部 に ある も の を 使う と よい 
ЕСЕ の 5 
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な お , 音域 を 広げ る た め の 工 夫 と し て は , FM-77 の キー ボー ド を 何 
段 も 使っ た り , カナ / ア ルフ ァ ベ ッ ト の 切換 え を 使う (“ソン "で 中 央 の 
с, ICU に し た ら キ オク ター プ 低 ふい e に する ) 方 法 が あり ます . 








/ ニニ ニニ ニニ ニニ ニニ = ニニ ニニ ニニ ニニ = ニ = FNM-77/ KEY BUAD Э カッ "ラニ 2% ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ モニ ニ 
‘= KEY BOAD Э 7927 モート" ニ у777`%4 = 
‘= 77-97 "メリ тле ナル ト リョ ウキ ョ ニー サル マス ж 7-29 オス ト 2 も "リノ メリ фус ナリ マス = 


4/ ニ ニニ ニー ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ミニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


C=Q:WIDTH 49,25:CELS:PLAY"V1LB" 
GOSUB ТИНОС УРУ 7*427°14 
б------------------------- モジ" ルリ ト オウ イノ т4#°------------------------------ 
M1$=" す 9 ヒコ ミ モ ネ メロ 123":MU1$="abcdefqabcdefd" 
M2%=" ト キマ ノリ リム "5 間 U2 ま ="aCdfaCd7E еее ее リフ オウ カイ ヨ 9 
ーーー ニー ニー ニー ニー ニーーーー ニ ーーー ニニ ーーー ニ ーー KEY*"ー ト " カラ / ニュ 9 リョ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
A$=INKEY$:TF А%="" THEN 210 ELSE IF A$="*" THEN Р1Ү%-"%":6070 280 
P=INSTR(M1$,$):IF P=Q THEN GOSUB 320: "(rr 24294 Л МОЛ ルッ ゲッ 
IF Р>=10 THEN 0%="05" 
IF P<=2 THEN 0%="03" 
IF Р>2 AND P<10 THEN 0%="04" 
PLYW=0$+NID$(MU1$」P。1):PLAY PLYS 
б--------------------------- テー サ 19 リョ 7 --------------------------------- 
PRINT USINB'& —&";PLY$; 
С=С+1:1Е C>=129 THEN GOSUB 400:C=Q: に に ババ メリ 9390397 7°-#/ 0879 フフ 


P=INSTR(M2$,A$):IF Р=@ THEN RETURN 210 
IF P>=7 THEN 0%="05" 
IF P<=1 THEN 0%="03" 
IF P>1 AND P<7 THEN 0%="04" 
PLY$=D$+MID$ (MU2$,P,1)+"#";PLñAY PLY$ 
RETURN 280 


メッ за??Фа 
FOR Ү=й TO 15:10САТЕ В,Ү:РКІМТ STRINB$(89」" ");:NEXT:LOCATE 0,0 
RETURN 


“жена ガリ" リノ 9704 
COLOR 6:LOCATE 0,17 


PRINT ТАВ(5);" К АЖ АА, ТА 

PRINT тав(5);" вва тавана" 

PRINT ТАВ(5);"!Ш!ШШЕ! вва ва" 

PRINT ТАВ (5); " Іа 1Ь1" ; : СОСОК 5: РКІМТ "с 19 1е1+ 19 1а 16"; : СОСОК ъ: РКІМТ " іс 1а 1е1+ 191" 
РЕТИТ ТАРТАР RE EE Бы [ЕЕ 

PRINT ТАВ (5); "191917 ТЕ Та ТЕТЯ Ах 101112131" 

PRINT ПАВЕ ааа аана 

COLOR 7: 0САТЕ 0,0 

RETURN 






























































170 








乱数 を 使っ て 即興 演奏 を させ る 








* 乱 数 を 使っ た フリ ー 本 物 の 即興 演奏 は , 演奏 者 の 感性 に より ます が , コン ピュ ー タ で は 
ミュ ー ジ ッ ク プロ グラ ム に よっ て , た と えば 明る い 感じ の 曲 な ら 長 調 を 使い し , テン 


も 早め に する な ど を 考え れ ば , 多少 は 曲想 が 設定 で きる も の の , 芸 
術 的 を も の を 作る の は 上 難 か し いも の で す . 

ここ に 紹介 する も の は , まっ た く の フ リー 演奏 で , 小節 数 , 音階 
音 長 を ど を すべ て 乱数 に よっ て 作り 出し て いま す . 小節 数 。 БЕЗ 
81, 2, йй 68464e 計 半 相 の お か だ (は さき * ゆ は 2Wien94 い 
っ た 数 値 を 使っ て べき 乗 計 算 に よっ て 求め ます ( 行 番号 140. 160). 
お 音階 は “c, d, ез” と いっ た アル ファ ベッ ト 系 列 以 外 に 数 値 に 
よる 指定 が で きる の で , ここ で は , N 一 30 一 69 ま で を 発生 させ ます ( 行 番 
#160). N 一 48 が 中 央 の ド (С) で すか ら , 約 3 オ クタ ー プ の 音域 で 
7. この プロ グラ ム で は まず 小節 数 と 演奏 する と き の 音 量 を 決め て か 
5, 音階 を など を 配列 に し まい ます . 

演奏 を させ る ルー チン は 行 番 号 190 一 210 で す が , 演奏 と 共に 四角 が 
画面 に 出 て くる サブ プル ー チ ン を 呼び にぎやか に し て いま す . また 設 
定 し た 小節 の 演奏 が 終る と , 休止 する よう に し まし た ( 行 番号 220) 
な お , 音階 の 指定 その 他 を 工夫 する と 人 間 が 普通 に 演奏 し て いて . 
し か も 即 典 演奏 の よう に 聞え る 曲 に を る の で 工夫 し て み ま し ょ う . 





110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 





"ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ RANDOM ACCESS MUSIC ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー 
DIM DOREMI(16),NAGASA(16),C (16) 
IF ТІМЕ>50000 THEN ТІМЕ%-"0 00:00:00" 
CLS:RANDOMIZE TIME 
SSINT(RND#S) :XS=2°XS: VOL=INT(RND*5) +10: "XS=539t9 (1,2,4,8,16) 
FOR I=1 TO XS 
て (1)=(RND7)+1: ПОКЕМІ (1T)=INT(RND49)+20:X=INT(RND*5) : NAGASA (1) =2^у 
NEXT 
PLAY"V=VHLi" 


FOR Ізі TH XS 
PLAY"N=DDREMI(I);L=NAGASA(I);" :60508 250 

NEXT 

REST=NAGASA(1):PLAY "К=КЕЅТ; " 

68070 120 

Х-МАВАЗА (1) +I*30:Y=150-DOREMI(I)*2:LINE(X,Y)-(X+30,Y+20),PSET,C(I),BF 


FOR Т=0 ТО 500: МЕХТ: КЕТОКМ 














これ か ら の 言語 


Logo を 研究 し よう 
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Logo が 問題 むき の 言 EFI 語 と いわ れる わけ は … 








※ 本 質 的 に は Logo は や さ 


し い 言 語 


※Logo を 開発 し た の は MIT の S. パパ 
ー ト , , ス イス の 教育 心理 学者 の J. ビア 
ジェ な ど で あ る . 子供 に も 扱え る フロ 
グラ ム 言 語 , と いう の が 開発 の ひと つ 
の 動機 と いわ れ て いる 


** 手 続き と 定義 と は 


※ 手 続き : プ ロ シ ジ ャ 


Logo は アメ リカ の MIT (マサチューセッツ 工 科大 学 ) で 生ま れ た 言 
語 で す . 英語 の ロゴ グラ ム (logogram: 円 を \ と 表わす よう な 符号 化 
し た 言葉 ) を な どか ら も 分 る よう に , 人 間 が ふだん 使っ て いる 言葉 で コ 
ンピュータ を 使い こなす こと を 目的 と し て 開発 され まし た . 

た だ 。 邊 まれ が アメ リカ で すか ら , а ンピュータ へ の 命令 は 英語 が 
使わ れる 点 で , 日 本 人 に は ちょ っ と 苦手 を 部 分 が あり ます . АЦЕ 
BUTEFIRST (バッ ト フ ァ ー ス ト ) と いう Logo の 命令 は , 文字 の つづ り 
や 単語 の 中 の 「 最 初 以 外 の 」 も の を 処理 する と き に 使い ます が , 英語 
較 の 人 人々 に は この 命令 が 感覚 的 に すぐ に 分 る の に 対し , 英語 圏 以外 の 
人 々 に は その 意味 を まず 頭 の 中 に 入れ を な けれ ば いけ な い , と いう こと 
に な り ま す . Logo を 使う と き , 日 本 人 が 「 ど う も と りつ き に くい 」 な ど 
と 思う の は , Logo の , コン ピュ ー タ と し て の 本 質 的 な 動作 と これ ら の 
英語 の 命令 と を 混同 し て し まう こと が 多い か ら に ほか な り ま せん . 


人 工 知能 (artificial intelligence) の 分 野 に も Logo は 活躍 し ます . 
それ は な ぜ で し ょ う . また Logo に よる グラ フィ ックス は 小学 生 程 度 に 
も 十分 に 使 を る と いわ れ ま す . それ は な ぜ で し ょ うか ・ 使い 手 が コ ン 
ピュ ー タ に いろ いろ な 命令 を 伝え る と き , Logo で は その 内 容 を 使い 手 
Не ЕГЕ САО yi C 2:56 25 G 2. 

た と えば 「 朝 」 と いう こと を , が の よ の ほ 考 る 2 ぐい る 2 まし 
20°. 

朝 は 「 起 き る 」 こ と 「 歯 を みがく 」 こ と 「 パ ン を 食べ る 」 こ と -・ 
Logo で は , それ ぞ れ の 内 容 を , 手続 き を 経て 定義 で き АЗГЕ 


TO 起き る (一 定義 の タイ トル ) 
目 さ まし が 鳴る フト ン か ら 出 る 着 が える (一 手続 き の 内 容 ) 
END (手続 き 終 了 ) 


これ と お な じ よ うに し て 「 歯 を みがく 」「 パ ン を 食べ る 」 を 定義 し 
TO 朝 
起き る 歯 を みがく 
END 
と し て , 朝 と いう こと を Logo を 通 生じ で コン ビビ テー ニタ (人伝 る の で すう 


パン を 食べ る 








※TLogo は また ロゴ ス (logos : 理性 ) に 
も 通じ て いる . 考え を 表わす ひと つの 
方 法 が 言葉 で あり , コン ピュ ー タ を 操 
作 す る こと は 使い 手 の 考 え を , 記号 や 
プロ グラ ム 言 語 を 使っ て 具現 する こと 
に ほか な ら な い 


** ネ ※ 再 帰 的 な プロ グラ ム 


※ 再 帰 : リ カー ジョ ン 
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これ で コン ピュ ー タ に は 使い 手 が 考 える 「 朝 」 が 教え こま れ ま し た . 
この こと は , 見 方 を 変え た れ ば ぼ ば コン ピュ エー タ に は 【 朝 」 と いう 命令 が ひ 
と つ 。 新しく 増え た の と お な じ に な り ま す . これ を ディ スク に し まっ 
て お け ば , いつ で も 自由 に 呼び 出せ る の で , た と えば BASIC の よう 
に 行 番号 の 何 番 ま で が どの よう な ルー チン で あっ た の か , と いっ た こ 
と に 頭 を 悩ま せる 必要 も あり ませ ん し , A と いう プロ グラ ム で も B と 
いう プロ グラ ム で も , 共通 し て いつ で も 自由 に 呼び 出せ る こと に な り 
ます 


さき て, いま の 「 朝 」 の 定義 を , も し つぎ の 形 で 実行 し た ら ど うな る 
U FR 

TO 朝 

起き る 歯 を みがく パン を 食べ る 朝 

END 
コン ピュ ー タ は 起き る ・ 歯 を みがく ・ パ ン を 食べ る を 実行 し た あと に 
朝 に ぶつ か り ま す . で は 「 朝 」 は どう 定義 きれ て いた で し ょ うか ? 

朝 は 「TO 朝一 END」 の 中 で 「 起 きる 歯 を みがく パン を 食べ る 
朝 」 と 定義 きれ て いま し た . 

この プロ グラ ム は , 結果 的 に は 起き る ・ 歯 を みがく ・ パ ン を 食べ る 

起き る ・ 歯 を みがく ・ パ ン を 食べ る ………… の くり か え し に な り 
ます . これ が 「 再 帰 」 あ る い は 「 循 環 」 と よ ば れる も の で す . 

Logo で は 再帰 的 を プログ ラム を 書く こと が で きる の で す が , 考え れ 
ば 考え る ほど ふし ぎ だ ・ お か し い ・ 理 解 で き な い , と いう 人 が いる に 
違い あり ませ ん . それ は あな た が まだ Logo を 使っ て いな いか ら で す . 
少し の 時 間 で あっ て も Logo に 触れ る と この こと は 特に 意識 し な く な 
り ま す . Logo は , COBOL や BASIC な どの よう に , £ А Бул 
書き か た に あま り 制 約 さ れず, つ 〇 〇 と いう こと は へ へ と いう こと を 意 
味 す る , と 思っ た ら 〇 〇 の 部 分 を 手続 き を 経て 定義 し て , 2207 
分 を どん どん 作っ て ゆく , と いっ た 操作 が 可能 を な の で す . その 代り , 
A, B, С, D… と いっ た 多く の 数 値 を 計算 し , 出力 する 数 値 の 桁 数 を そ 
ろ え て プリ ンタ に 送る , と いっ た こと は 得意 で は あり ませ ん . Logo 
が 《 問 題 む き 》 … な に か の 命題 を 解決 する の に むい て いる …: 言 語 と よ 
ば れる の は この た めで す . 

前 置き は さて お き , さっ そく Logo の 世界 を の ぞい て み ま し ょ う .- 
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まず 四角 は 四角 に な る よう に し よう 


*※ さ いし ょ の プロ グラ ム まず , ディ スプ レイ の タテ ・ ヨ コ 比 を 正しい 関係 に し まし ょ う . 7 
ォ ー マ ッ ト ず み の , 書き こみ 可能 を な ディスケット を ドラ イブ に 入れ て 
くだ さい . そし て ? マー ク が 出 た ら テ キス トス クリ ー ン に し 
?TO SHIKAKU (RETURN) 定義 を し た い 
TO SHIKAKU (RETURN) 定義 は SHIKAKU 











HT (RETURN) ター トル を 消す 

FD 150 (RETURN) 前 へ 150 

RT 90 (RETURN) 右 へ 90 度 

SHIKAKU (RETURN) SHIKAKU を 呼ぶ 

END (RETURN) 定義 終り 

(ESC) 手続 きか ら ? へ と , も どる 
と し ます . これ で 正方 形 を 描く た め の 準 備 が で きま し た . SS に し , 

※TS: テ キス トス クリ ー ン ?SHIKAKU (RETURN) 
※SS: スプリット ス クリ ー ン で 画面 に は 四角 が 描か われ る で し ょ う . た だ し この プロ グラ ム は 前 の ペ 


ー ジ で 説明 し た 再帰 的 を プロ グラ ム で すか ら , BREAK し な いか ぎり , 
永久 に 四角 を 描い て いま す . さて , この 正方 形 は , 真 四角 に な っ て い 
まし た か ? SAVE “DO: SHIKAKU と し ます . 


*※ ネ タテ ・ ヨ コ 比 を 補正 真 四角 に を っ て いな いと き は , HOSEI を 作っ て くだ さい . キー 操作 
し て あげ ま し ょ う は いま 述べ た の と お な ば 方 法 で す . 私 の 場合 は 手続 き 中 の 数 値 が 「.4 


35」 で よかっ た の で す が , あな た の ディ スプ レイ に 合せ て この 数 値 を 
変え て や り ま す . 正方 形 が 正方 形 に 見 える まで , SHIKAKU を 実行 し , 
た し か め た あと に 

?ТО HOSEI (RETURN) 
で 補正 の 定義 を 画面 に 出し , 数 値 を 最適 を も の に し て や り ま す . 

これ も SAVE “DO: HOSEI で ディ スケ ッ ト に お さめ まし ょ う . 5 


TO HOSEI AVE が 終る と 画面 に メッ セー ジ が 出 て , 2 つの 手続 き が 定義 ぞ み で , 
. SETSCRUNCH 0.435 А : 
END それ が ディ スケ ッ ト に お さめ られ て いる こと が 分 り ま す . BASIC の 


感覚 か ら す れ ば , いま は 「 補 正 」 の プロ グラ ム だ けが “HOSEI" の 名 
前 で SAVE さ れ た は ず な の に , Logo で は 「 補 正 」 と 「 四 角 」 の 2 つが 
お さめ られ た の で す . 











* ネ *※※ ネ ワー クス ペー ス を す 
べ て 呑み こむ SAVE 


ネネ ネネ 部 分 だ け を 
SAVE す る 方 法 は 


ЖЕВЕ: イレ ー ス ファ イル 
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その 証拠 に 「 補 正 」 を SAVE し た あと に 画面 の メッ セー ジ は 

2 PROCEDURES SAVED 
と な っ た は ず で す . あな た は いま , ПИШЕ! だ け を HOSEI と いう 名 前 
で ディ スケ ッ ト に お さめ た と 思っ て いる の に , で す . た めし に 


?ERPS (すべ て の プロ シ ジ ャ を 消せ ) 
と し て リタ ー ン キー を 押し た あと に 

LOAD “DO : HOSEI (RETURN) 
е ео 

HOSEI DEFINED (補正 は 定義 ずみ ) 

SHIKAKU DEFINED (四角 は 定義 ずみ ) 


と いう メッ セー ジ が 出 ま す . 

Logo で は SAVE や LOAD ERPS な どの , Logo に 最初 か ら 備 
わっ て いる 命令 を プリ ミ テ ィ ブ (primitive) と いい ます . 初期 命令 , 
ある い は 固定 命令 に で も いえ る で し ょ う . これ に 対し いま 定義 し た 「 四 
角 」 や 「 補 正 」 は ワー クス ペー ス と 呼ば れる と ころ に し まわ れ , SA 
VE 命 令 に よっ て ワー クス ペー ス に ある 手続 き は すべ て ディ スケ ッ ト 
に し まわ れ ま す . BASIC で いえ ば , ひと つの 行 番号 の 文 が ひとつ 
の 定義 に 相当 する , と いっ た よう に 考え て も よい で し ょ う . し た が っ 
て 「 補 正 」 の 手続 き を 定義 むる こと と , SAVE し て “НОЅЕІ” を ディ 
スケ Ri し まう と と どど は ほ 別 人 の で ず 。 


ひと つ ひ と つの 手続 き は 部 分 で , SAVE す る と き は ワー クス ペー スズ 
に ある も の 全体 が ディ スケ ッ ト に お さめ られ る こと を 知り まし ょ う . 
な お , “НОЅЕІ” に は 「 補 正 」 だ け を SAVE し た か っ た ら 

ER [SHIKAKU] (SHIKAKU を 消す ) 

ЕВЕ “DO: HOSEI 

SAVE “DO: HOSEI 
の 3 つの 操作 を じゅ ん ば ん に お こ な っ て くだ さい . BASIC の 感覚 で 
いえ ば 「 四 角 」 に あたる 文 の 行 番号 を 消し て , すでに “HOSEI” の 名 
前 で SAVE し て あっ た プロ グラ ム を KILL し て か ら , も うい ち ど SA 
VE し な お す 作 業 と よく 似 て いま す . 

Logo に 慣れ る た め に も マス ター ディ スケ ッ ト に よる 起動 一 手続 き 
ーー SAVE 一 マス ター ディ スケ ッ ト に よる 超 動 一 LOAD な を ど を 何 回 か く 
WEDS NRC 98 
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四角 を 作り , 回 転 さ せる 








* 準備 の 手続 き , 手続 き 
の 組合 せ 





TO KAITENSHIKAKU 


JUNBI 

REPEAT 12 [SHIKAKU120 RT 
301 

END 


ТО SHIKAKU129 
REPEAT 4 [FD 120 RT 9Q1 
END 


TO JUNBI 
HOSEI 

55 

CS 

HT SETPC 7 
END 


ТО HOSEI 
.SETSCRUNCH 0.435 
END 











ム 回 転 する 四角 の 手続 き 





COLOR7, そし て ゆっ くり と 描く 


TO KAITENSHIKAKU 
SETPC 7 
JUNRI 


ВЕРЕАТ 12 [SHIKAKU129 WAIT 50 RT 501 


END 


いち ど 電 気 を 切り , 最初 か ら ス ター ト し まし ょ う . まず 

LOAD “DO : HOSEI 

を 実行 し , つぎ に 「 準 備 」 の 手続 き を 定義 し ます . この 手続 き は プリ 
ミ テ ィ プ ブ (CS : クリ アス クリ ー ン , HT : ハイ ド タ ー ト ル , SS・ ス プ 
リッ トス クリ ー ン ) や 「 補 正 」 と いう , 画面 へ の 出力 準備 の た め の 手 
続き か ら で き て いま す . 

つぎ に 一 辺 が 120 の 長 さ の 四角 を 描く 手続 き を 定義 し ます . それ が 


| SHIKAKU120 で す . この 手続 き は すぐ に 分 る で し ょ う ・ 


REPEAT 4 [FD 120 RT 90] 
4 回 の くり か え ぇ し [前 へ 120 右 へ 90 度 ] と いう こと で す . 
хт, これ で 下ごしらえ は で きま し た . この 4 角 を 30 度 ずつ 傾け て 
や る に は どう し まし ょ う . まず ひと まわ り は 360 度 で すか ら , 
と ひと まわ りす る に は 360 テ 30 一 12 回 は くり か えさ な けれ ば いけ ませ 
ん . くり か え し は 12 回 , 傾き は 30 度 で すか ら 

REPEAT 12 [SHIKAKU120 RT 30] 

12 回 の くり か ぇ し [一 辺 120 の 四角 を 右 へ 30 度 傾け て ] 
が その 基本 に を なり ま す . Logo は 1 文字 分 あけ る こと と , 文字 を つなげ 
る こと を 厳密 に 区 別 し ま す . 
REPEAT 12 と する と , 
Logo は 考え ます し 
SHIKAKU 120 と する と , 手続 き を 呼び 出す の で は な く , な に か 
の 計算 で は な いか , と Logo は 考え て , つじ つま が 合わ な いと エラ ー メ 
ッ セ ー ジ を 出し ます . 1 字 分 を あけ る 時 と そう で な いと き に よく 注意 
し ます . で は , この 回 転 する 四角 を 白 (カラ ー コ ー ド 7) で し か も ゆ 
忘 ぐ り と 搬 く ぐ よ うに し まほ お す で ぞ れ に は SETPC (ЕУ К 
ラー ・ 色 の 設定 )、 WAIT (ウェ イト : 時間 待ち ) を 追加 し ます . ? が 
出 て いる 時 に TS に し て か ら TO KAITENSHIKAKU と タイ プ し て 
リタ ー ン キー を 押し ます . 

この あと , この 回 転 四角 の 手続 き に SETPC と WAIT を 追加 し て , 
新しい 定義 を し て くだ さい . 


グル リ 


た と えば これ は 手続 き # な の だ ろう か ? と 


РАЧИ ДЕД 
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Logo の 基本 は 直線 , で も こま か く 進 むと 曲線 








* まがっ て 進む に は 


** 円 弧 を 少 し ずつ 前 進 
させ る 方 法 


— КИ 


Al=rx ラジ アン 





る 25°" ずつ 前 進 さ せ て や る 


Logo の ター トル は どん な 小さ な 角度 に も 向き ます . た と えば 

REPEAT 100 [RT 0.1 FD 0] 

右 へ 0.1 度 ずつ , 前 へ は 進ま な いこ と の 100 回 の くり か え ぇ し 

に も , ちゃ ん と いう こと を 聞き ます . し か し , ある 位置 か ら つ ぎの 位 
置 へ と 移動 する の は , あく まで も 直進 の み で す . プリ ミ テ ィ ブ に 円 を 
描か せる 命令 は な い の で , 自分 で 作ら な けれ ば いけ ませ ん . 


まず 円 弧 を 考え を ましょ う . 円 弧 の 長 さ は こう きま っ て いま す . 

ВИКО & = ВАЮІАМх т (7 は 円 の 半径 ) 

1 ラジ アン の と き , 円 弘 の 長き は 半径 に 等 し くく なり, x ラジ アン の 
と き (3.14159 ラ ジア ン ) は 直径 の 3.14159 倍 が 円 弧 の 長き に な り ま す . 
ァ は お な じみ の 円 周 率 で 3.14159、 な お , 角度 と の 対応 は 0.5z で 90 度 , 
ァ で 180 度 , 1.5x が 270 度 , 2x は 360 度 で す . 

いま , ある 円 弧 を 描く こと に し て , と りあ え ず 必要 な デー タ は な ん 
で し ょ うか ? 半径 (7) と 角度 (degree) で す . まず 角度 と ラジ アン の 関 
係 を 知ら な いと いけ ませ ん . 

360%-2хл-6.28 18 =6.28--360 (> 77 У) 
つま りあ る 半径 の 円 の , ある 角度 が 作る 円 弧 の 長 さ を 知り た か っ た ら 

ВОДО & = (6.28--360) x 角度 半径 
こ な り ます . た だ し , ここ で も と め た た 円弧 の 長 さ は あく まで も 計算 上 
の も の で すか ら , この 長 さ を も と に し て Logo で 

FD ВФЕ & (ЕКО E ë 477 17 0728) 

と し て も , 直線 に を な っ て し まい ます . 

そこ で , も と め た 円 線 を ある 回 数 ずつ , こき ざさ み に 前 へ 進め ます . 
そし て 角度 も ある 回 数 ずつ , こき ざさ ざさ み に し な けれ ば いけ ませ ん . た と 
えば 円 線 の 長き を も と め , 10 回 に 分 け て 前 進 き せる な ら , 角度 も 10 に 
分 割 す る の で す . と どころ で 現実 に は FM-77 の ディ スプ レイ 上 で こま か 
く 分 割 し て も 時 間 が か か る ば か り で す . 分 割 す る 角度 は , どん な 円 線 
で も 1 回 に つき 5 度 も あれ ば 十分 で し ょ う . 角度 は 5 度 き ぎみ と し た 
と き は , くり か え し 数 は 「 角 度 二 5」, 前 へ ゆく 1 回 分 の 距離 は (6.28 二 
(360--5)) ху, ター トル の 首 振り 角 は 5 度 に な り ま す . 
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円 弧 は 円 に も な る 7 


* 変 数 の 書き か た に 注意 で は 実際 に 円 弧 を 描く 手続 き を し まし ょ う . ここ で まず 注意 する 
と は 前 へ 100 進 め . と いう と き は “EFD 品 100" 2 004 弟分 を 1 文字 あけ 
て いま す . Logo の 手続 き で , も し 前 へ X だ け 進 め , と 命令 し , この X 
は TLogo が べつ の 場所 で 計算 する も の だ よ , と いう と き は 

FD :X 

ЭБЭ 12, Us や 339 FD の あと に 1 文字 分 を あけ , つぎ に ・( コ ロ у) 
を 打ち , その あと に X を 打つ よう に し ます ・ また , 手続 き の タ イト ル 
に も ,「 こ れ か ら の 手続 き は X と いう 変数 が 入り ます 」 と いう こと を 知 
ら せ る た め に , や は り 1 文字 分 を あけ ます . も し 変数 が 2 つ あ る と き 
{БҮ а ДЕЕ "ы емей 
口 :X:Y で は , S IDogo ph “:Х:Ү” と いう 名 前 の ひと つの 変数 と 思 - 
て し まう の で す . 1 文字 あけ が 正 а ОУ Оу ッ セ ー ジ 
は 出 を ない の で , 十分 に 注意 し て くだ さい 




















то (Із :R :DEG 

JUNBI 

SETFC 7 

HT 

REPEAT :DEB / 5 [FD :R * 0.0872 LT 51 
END 





ТО Rr コ :R :DEB 

JUNRI 

SETPC 7 

HT 

REPEAT :DEG / 5 [FD :R * 0.0872 RT 51 
END 


4 右 ま わり 





TO JUNRI 
HOSEI 

HT 

85 

CS 

END 


ТО HOSEI 


.ЗЕТ5СКИМЕН 0.435 
END 左 ま わり 


^ 右 円 弧 , 左 円 弧 の 手続 き 


























**※ 手 続き を 終え た ら 
SAVE し よう 


ネネ ※ ネ ※ つ ぎの ステ ッ プ の 
た め の 応 用 
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いま まで の 話 で , まだ よく 分 ら な い 人 は , と に か く 一 度 電気 を 切っ 
て し まい まし ょ う . そし て ディ スケ ッ ト に 書か れ た ファ イル の 

ЕКЕ “DO : HOSEI (EREF: イ レー ス フ ァ イル ) 

ЕКЕ “DO : JUNBI 
の 2 つ を 消し て し まっ て , 前 ペー ジ の 4 つの 手続 き を 改め て 定義 し て 
も か まい ませ ん . 前 ペー ジ の 手続 き が すべ て 済ん だ ら , L エ ンコ (Ж 
むき の 円 弧 ), R エ ンコ ( 右 む き の 円 弧 ) を 何 回 か , 試し て み ま し ょ う . 
どちら も まち が いな く で きる こと を 確認 し た ら 

SAVE “DO : エン コ 

ぐ ⑯ әйнек АйАР КІСБЕФЖІЛЕЗ МӘ ОСО, 
&@&&1\© 

ERPS (すべ て の プロ シ ジ ャ を ワー クス ペー ス か ら 消 去 ) 

ど タ イプ リタ デン キー を 押 じ た あと 

POTS (画面 に に いま ある プロ シ ジ ャ を 出し な さい ) 

を 実行 し まし ょ う . 画面 に は ひと つの プロ シ ジ ャ も た くわ えら れ て い 
な いた め 」』 (人 が 出る だ は け の ほ ポ で す . そう し で 

LOAD “DO : エン コ 

と , ディ スケ ッ ト か ら 手 続き を 読み こみ ます . JUNBI の 手続 き は 前 の 
も の と は 違う 順序 で す が , 結果 は ほとん ど 同 じ で す . 


Logo が な に を し て いる の か , 分 っ て きま し た か ? い ま の 円 弧 で は も 
っ と も 原始 的 な 手続 き が 「 補 正 」 で , 「 準 備 」 に は その 補正 よ と いく つか 
の プリ ミ テ ィ ブ が 集まり , 円 線 を 描く 手続 き で は それ に 加え て , 白い 
色 を 指定 し た り , 準備 の 手続 き を 呼ん だ り し て いま す . 

な お この 円 線 を 描く と き の , BASIC で いえ ば “RUN"” に 当る も の 
は , も し 右 ま わり の 円 弧 で 半径 が 120, 角度 が 100 度 な を なら? の あと 

2R エ ンコ 120 100 
と し て リタ ー ン キー を 押し ます . 

連続 し て 右 ま わり , 左 ま わり を させ る と き は 「 準 備 」 の 手続 き な ど 
асэн な お PUI( ペ パン アッ プ ) で ター ト を 好き な 
と ころ へ 移動 で きま す が , 描く 前 に は か な ら ず PD (ペン ダウ ン ) し 
な いと , 線 は 描か ず , ター トル だ けが チョ コチ ョ コ 動 いて し まい ます 
の で 注意 し まし ょ う . 円 は 角度 を 360 に すれ ば いい で すね . 

連続 し て 動か す 手 続き も , 別 の 名 前 で SAVE す る と よい で し ょ う . 
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花壇 に は 花 が , 花 に は な に が ? 








* 部 分 か ら 全 体 を 作る 


※ 手 続き は , 作る 順序 は 関係 ない. 
掲載 され た も の を 順不同 で 打っ て も 
よい 


花壇 に は な に が あり ます か ? 花 が あり ます . 1 本 の 花 に は な に が あ 
り ま すか ? 花 びら と 葉 と 茎 が あり ます . 

で は Logo で 花壇 を 作る に は どう し た ら よ いで し ょ うか . いま 述べ た 
考え の と お り に それ ぞ れ の 部 分 を 作り , 組合 せれ ば よい の で す . それ 
ぞ れ の 手続 き を 定義 し て , さい ご の メイ ン と な る 手続 き で 完成 させ ま 
す . まず 花びら を 作り まし ょ う . 花びら は 右 ま わり の 円 紋 と , 左 まわ 
り の 円 線 を 組合 せれ ば よい で し ょ う . ここ で は “НАМАВІКА” の 手 
続き で 作っ て いま す . この 手続 き の 中 の 

RT 15 X 6 
は 右 ま わり の 円 弧 を 描い た あと の ター トル の 向き を 変え る た めで す . 

花びら が いく つか 集まる と 花 に を なり ま す . “HANA” の 手続 き で , 花 
びら を 8 枚 描く よう に し まし た . それ ぞ れ の 花びら は 45 度 ずつ , 向き 
を 変え た て いま す . 葉 も 花びら と お な じ よ うに “А” で 手続 き を し , С 
れ を 茎 の どこ か に つけ て や れ ば よい で し ょ う . これ ら の 手続 き を 組合 
せる と , 1 本 の 花 が で きま す . 

ЗБЕ Gs: (e aa 

# 430221 25-15845 7 — F ) £ 2: 7= Ф197 — К — # — Л 
を 0 度 に も ど し 一 40 進 み …… と いう よう に , 茎 と 葉 と の 組合 せ に な っ 
て いま す . 1 本 の 花 は , さら に この 茎 の 上 に 花 が 乗り ます か ら , これ 
を “ハナ” と いう 名 前 で 手続 き を し まし た . 花壇 で すか ら , 何 本 か の 
花 を 植え を を けれ ば いけ ませ ん . ター トル を 動か し , 線 を 描か な いよ う 
に する た め の プ リ ミ テ ィ ブ も 使い ます . 





TO 9° 
HOSEI 
777%) 
PU 

LT 90 
FD 24@ 
SETH Q 
PD 


END 





REPEAT 4 [PD А7 26 モト "5 PU RT 90 FD 1601 








人 花壇 の 手続 き 





花壇 の で き あ が り ぁ 














ネ ※ ネ ※ ネ いま まで の お さら い 





TO ñ 

КЕРЕАТ 15 [FD 4 RT 61 
RT 15 # 6 

КЕРЕАТ 15 [FD 4 RT 61 
END 


TO 2% 

SETPC 4 TO nf 
SETH 0 7% 

Ер 3@ SEIPU 2 
SETH 15 HANA 

\ END 

SETH 0 

FD 4Q ТО 28958F" 8 
SETH 280 SETH 0 

л FU 

SETH Q BACK 200 
FD 130 PD 

END END 


Т0 HANABIRA 

REPEAT 15 [RT ё Ер ё] 
RT 15 # 6 

КЕРЕАТ 15 [RT 6 FD 6] 
END 


ТО НАМА 

SETPC 5 

REPEAT 8 [HANARIRA RT 451 
END 


ТО HOSEI 
. SETSCRUNCH 9.435 
END 


TU "77% 
FU 

BACK 120 
PD 

END 











その 他 の 8 つの 手続 き 
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で は いち ど , ここ で Logo の お さら い を し まし ょ う . まず 手続 き で す . 
手続 き は , Logo に させ た いこ と を 教え る こと で す . 手続 き に は 名 前 を 
つけ て や り TO 手続 き の 名 前 と いう 形 で 定義 し ます . 手続 き の 終 
了 は リタ ー ン キー で は な く , ESC キ ー を 使い ます . Logo に は プリ ミ 
ティ ブ と 呼ば れる 命令 が あり , 手続 き を し な く て も 直接 使え ます. た 
だ し , 英語 で “I АМ” を “IAM” と 書く と まっ た く 別 の も の に な る 
よう に , Logo で は “Ер 100” 2 “Ер100” を 区 別 し ま す . “Ер 100” 
な ら 《100 だ け 前 進 》 と 理解 し ます が , “FD100” で は それ に 対応 する 
も の を Logo が 探し 出し , あな た が “FD100” を きち ん と 教え て いな 
いと , エラ ー メ ッ セ ー ジ を 出し ます . いま まで 出 て きた プリ ミ テ ィ ブ 
shak ша Е а 
PU: ペン アッ プ (ター トル は 線 を 描き ませ ん ) 

PD : ペン ダウ ン (ター トル は 線 を 描き ます ) 
SETH : ター トル の 向き を 何 度 に する か を 命令 し ます . 0 で は 上 向き , 

90 で は 時 計 ま わり に 90 度 を 向き ます . 

REPEAT :[ ] の 部 分 を , 指定 の 回 数 くり か え し ます 

RT: ター トル を 右向き に し ます 

LT: ター トル を 左向き に し ます 

FD : 前 進 の 命令 で す 

BK : 後退 の 命令 で す . ター トル の 向き は 変え た ませ ん 

SETPC : 色 を 指定 し ます 

SS: スプ リッ トス クリ ー ン で , ター トル が 活躍 する 場所 を 確保 し ます . 

画面 が こわ れる こと が 少な を なくなり ます . 

TS : テキ スト スク リー ン で , ター トル を 使わ な いと き 便 利 で す . 
.SETSCRUNCH : タテ の 比率 を 指定 し ます . さい し ょ に ピリ オド が つく 
こと に 注意 し まじ よう 


SAVE “DO0: ワ ー ク スペ ー ス に ある も の を , ディ スケ ッ ト に 納め ます 
LOAD “DO: : ディ スケ ッ ト に 納め られ た 手続 き な ど を Logo に 伝え ます 
POTS: : ワー クス ペー ス に ある 手続 き を 画面 に 出し ます 

POPS : ワー クス ペー ス に ある 手続 き の 内 容 を 画面 に 出し ます 
ERPS : ワーク スペ ー ス に ある 手続 き を すべ て 消し ます 


ER [ ] : 指定 し た 手続 き を 消し ます 
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ター トル の まとめ に , きれ いな 花 た ば を 





* コ ツ は ター トル の 向き が 
上 に な る こと 


※TS は テキ スト スク リー ン 


ご くわ ず か の 手続 き で こん な 花 が 『 


いま まで の Logo に よる ター トル ラフ > ッ ク ЖЫ 5% БЛ 多く 
の プリ ミ テ ィ ブ (Logo に 備わっ て いる 命令 ) を 紹介 する こと も あっ て 
読ん で いる あ を な に に は 整理 が び が つか な か っ た か も し れ ま せん . ター トル 
ケラ フィ ックス の し めく くり に , 少し の 手続 き で 作れ る 美しい 花 を 措 
きま し ょ う . テー マ は 基本 的 に 同じ も の で す ・ 

まず , “ハナ ビラ R"” を 見 て くだ さい . ここ で は 

REPEAT 10 [FD : SIZE RT 9] 

(サイ ズ 分 進み , その あと 9 度 向 き を 変え る 円 弧 を 10 回 描く ) 

と と に し て いま す . 9 度 の 向き を 10 回 で すか らち ょ う ど 90 度 だ け タ ー 
トル は その 向き を 変え た ます. そし て “RT 90” で 合計 180 度 向き を 変 
2, さら に 花びら の 下 半分 を 描き ます . 描い た あと で は 270 度 向き が 変 
わり , さら に “RT 90” で 総合 計 が 360 度 に な り ます . 花びら を ひと 
っ 描く と ター トル は , また きい し ょ の 向き に な っ て いま すか ら , その 
あぁ と の 処理 が ラク に な る の で す . ちな み に “ハナ” の 手続 き を 見 て く 
だ さい . 

ここ で も “リピート 18, 右 ま わ り 20 度 ” ですから, や は り 360 度 に な 
っ て いま す . 花 を 描き 終っ た と きも ター トル は 最初 の 向き で す . 











*※ 主 手続 き に だ け イ ン 
プッ ト が あれ ば よい 


Ж SETX, SETY は ター トル を 絶 
対 座標 上 に 動か す プ リ ミ テ ィ ブ 
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この よう を な 処理 を 使え ば , 花 全 体 を 回 転 き せ て も , つね に 中 心から 
ずれ て ゆく こと は あり ませ ん . “ハナ ビラ R"” な ど は , 葉 を 描く た め に 
も 使っ て いま す が , 1 枚 の 葉 を 描い て その まま で 前 進 き させ て 茎 を 描い 
СЪ, 1 本 の 花 全 体 は まっ すぐ に な る , と いう わけ で す . 

な お , この 回 転 を する 花 で は 主 手続 き が “カイ テン ハナ SIZE” 
に な っ て いま すか ら , ? が 画面 に 出 た とき (これ を トッ プレ ベル と い 
いま す ) に 

カイ デン バナ NO る © イオ テンペ バナ 4) 
と し で , ООУ ААТ ЭН Z gy ЕЭ Рк o |с АБ ns 
数 値 を ど を 入れ る (イン プッ ト ) と , Logo は 他 の 手続 き を 呼び 出す と 
き に も  : SIZE を お ぼ え て いる の で , その 他 の 手続 き で いち いち イン 
プッ ト す る 必要 ほほ あり ませ ん みん. た だ し , た と えば “クキ リ だ け を 直接 
呼び 出し て も , Logo は 動か な いこ と は 分 り ま すね . 





ТО Л4туЛ7 :517Е 














Т5 

НОЅЕІ 

FU 

SETY -50 

БЕТС ӨТТЕ 97% {АД D 
FD 

КЕРЕАТ 9 [nf RT 401 
FU 

БЕТ УБЕ t t АЙЫ) 
PD 

REFEAT 9 [pf RT 401 
END 


TO ДТ 

ӘБЕРІ> 4 

7% 

BETPU (6 

REPEAT 18 [ñrt`3R RT 201 
GETPG 4 

ВК :517Е % 28 

END 


TU HOSEI 
‚ ЗЕТЗСКОМСН 0.435 
END 


TÜ ТЕ“ ОК 

REPEAT 10 [FD :517Е RT 9] 
RT 90 

REPEAT 10 [FD :SIZE RT 91 
RT 99 

END 


TU 7% 

FD :SIZE # 4 
ЙЕ К 

FD :517Е # В 
ЛЕЗ 

FD БЕРЕ 16 
END 


ТО TE 

REPEAT 10 ГЕ ЧЫТЕ LT 71 
LT 90 

КЕРЕАТ 10 [FD :512Е LT 91 
LT 90 

END 





人 回 転 す る 花 の 手続 き 
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スム “с ” 
好き な 絵 を 作る “シェ イブ 
* シェ イプ の 作り か た と Logo の シェ イプ (shape : 形 ) コマ ンド を 使う と , 好き な 形 の パタ 
ディ スケ ッ ト へ の セー ブ ー ン を 作る こと が で きま す . その 基本 は 














TO л? 
SETSH "USA1 
STAMP 
RT 90 FD 32 
SETSH "USA2 
STAMP 
LT 99 
END 
ム 星 条 族 
ネネ スタ ンプ 命令 で 好き 
な 場所 に 出力 


1. ES コマ ンド で シェ イプ ・ エ ディ タ を 呼び 出す . た と えば 星条旗 
(アメ リカ の 国旗 ) を 作り , その シェ イプ に “USA” と いう 名 前 を つ 
けた か っ た ら , トッ プレ ベル で 
?ES “USA 
О 1 б» 

2 画面 に 現われ た パタ ー ン を , テン キー, カー ソル キー その 他 を 使 
っ て 編集 する . 終っ た ら ESC キ ー を 押す . 

з. この パタ ー ン は 見 か け 上 , ター トル と し て 使え る の で , も し デフ 
ォ ル ト 時 の ター トル (三角 マー ク ) の 代り に 使い た か っ た ら 
9 SETSH “USA 
な ど と ぶれ ば よい : 

дыз ка ata 703 295. 

左 の サン プル は 星条旗 を 左右 に 分 け て , 2 つの シェ イプ と し て 作り 
それ を 画面 の 中 央 に 出力 する プロ シ ジ ャ で す . “USA1” が 星 の あ る 部 
分 , “USA2” は 赤 と 白 の スト ライ プ 部 分 で す . 実際 に は 

Ф ES “USA1 
で 左 半 分 を 作っ た ら ESC キ ー を 押し , 

?ES “USA2 
で 新しい シェ イブ を 作っ た ら 同 じ よ うに ESC キ ー を 押し ます , これ で 
ワー クス ペー ス に は 2 つの シェ イプ が 登録 され ます . その あと に 左 の 
手続 き を 作成 し , た と えば 

SAVE “00 : USAFLAG 
な ど と すれ ば , この ファ イル に は 手続 き と 共 に 2 つの シェ イプ に 関す 
る パタ ー ン デー タ も 一 緒 に モー ブ プ さ れ ま す - 


この シェ イプ は 単に ター トル の 代り に な る だ け で な く , スタ ンプ 命 
令 そ の 他 に よっ て 画面 に 自由 に 出す こと が で き ます . 次 の ペー ジ は 画 
面 に 星条旗 を た くさ ん 出力 し , 最後 に は 元 の 4 倍 の 大 き さ の も の を ひ 
と つ だ け 出 力 す る も の で す . 








手続 き は 全部 で 4 つ あ り ま す . 
r> = Z ФИ 71216 М-Л, 
た め に “ハタ ” の 手続 き で は 左 半 
分 ずれ て 残り の 右 半 分 を スタ ンプ し ます . 
列 に 9 個 の 旗 を 出力 し ます . “タク サン ノ ハ タ ”" は , ター トル を 左上 
に 設定 し 。 一 列 の 旗 を 上 下 に 7 回 出力 する 手続 き で す . 

回 出力 する と 32( ド ッ ト ) 十 40( ド ッ ト …… 余 白 分 ) の 9 倍 だ け 右 へ 移動 


する の で , (32 十 40)X 9 ドッ ト 分 , 左 へ 戻し て いま す . 


小さ い 旗 を 63 個 出力 し た ら , 
で se さ いざ に “ホネ ホ ポキ イ へ 久信 負 呼び 出し て いま す . 
ル を 消し て いる (HT) こと に 注意 し て くだ さい . 


※ 下 の プロ グラ ム は “タク サン ノ ハ タ ”" 
を 入力 する と 実行 され る 





ТО 97740717 
PU CS НОМЕ 


HT LT 90 Ер 300 RT 90 FD 300 ST 


SETH 90 FD 150 SETH 9 FD 550 
すす オキ すり 

HT 

END 


ТО オオ 4 カタ 

| SETSH "USA1 
RIBSTANF 4 4 

RT 90 FD 32 # 4 
SETSH "USA2 
ВІБЅТАМР 4 4 





КЕРЕАТ 7 [4*L”9/ñn3 LT 90 FD ( 32 + 49 ) + 9 LT 90 FD 90 SETH 01 





ひと つ は 旗 を 1 個 だ け 出 力 す る も の 
ヨコ に 32 ド ッ ト が 基本 に な っ て いる 
分 を スタ ンプ し た ら , 右 へ 32 ド ッ ト 
“イチ レツ ノ ハ タ ”" は 横 一 


一 列 の 旗 を 1 


ター トル は また 画面 の 左上 へ と 移動 し 
жаа Ж = kE 











LT 90 
END 
TO 4+%/Л9 ЗЕ ЕЕ ШЕ БЕ ЕЕЕ | 
КЕРЕАТ 9 ГЛ? RT 90 FD 40 LT 901 
END == | 1 нш ШЕ 
TO л? a= | к j 
SETSH "USAa1 
В1Б8ТАМР 1 1 се j j j ШЕ ШШ ШШ ШЫ 
RT 90 FD 32 
SETSH "USA2 
и а Eye n ни ши sma sem ШШ ШЫ ШЕ ШШ ЫШ 
LT 9@ 
END 実行 例 y 

ム 蜂 条 族 を つぎ つぎ と 画面 に 出す 
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Logo の も う ひ と つの 世界 へ の 第 1 歩 





※MAKE と いう プリ ミ 
ティ ブ 


жЕ: センテンス の 略 
ЖРК: プリ ント の 略 
※PR [ ] は 結果 的 に は 1 行 あ け に な る 


2 つの 数 の 比較 


この へ ん で Logo の グラ フィ ックス か ら 離 れ て , べつ の 面 を 見 て ゆき 
まじ ちまう:W 主 AS80CI に な が BA もじ ます と ,。 Logo は ター トル グラ フィ ッ 
クス は 別 と し て , つき あい に くい , と いう 人 も 多い で し ょ う . 考え か 
た は 厳密 で 文法 が こま か く 規 定 さ れ て いな を な い の で , ルー ル が つか み に 
くい , 変数 や 変数 名 に つい て も 自由 度 が 大 きい 代り に , 使い か た が む 
ず か し いと も いえ ます . 

いずれ に し て も 少し ずつ , Logo の 使い か みた を マス ター する し か あり 
жағд. 手 は じ め に , 2 つの 数 を 扱う こと か ら 考 えて ゆき まし ょ う 
内 容 は ご く 簡 単 で す が , 書法 を マス ター する , と いう うえ で は ちょ う 
ど よ いも の か も し れ ま せん . ここ に は 2 つの 手続 き が あり ます . も と 
も と は 。 2 つ に する 意味 は を な い の で す が , 分 ける こと は あな た が この 
先 Logo に よる 長い プロ グラ ム を 作る と き に 役に立つ で し ょ КАУ 
аз” と いう 手続 き は , ほとん ど が 説明 文 で す . 

Ей 45122 (PR は PRINT の 略 ) 
は [ ] の 中 の 文章 を 画面 に 出し ます . な お , Logo は パー シン グ と い 
“250% 使い 手 が タ イプ し た も の を Logo に つ ご う の よ いよ うに 内 部 で 処 
理 し ます . その 処理 の ひと つ に 文字 と 文字 は 2 文字 以上 の 空白 は 作ら 





ТО 749 ョ 9 
PR [コル L カ 3 297 727) 9° 239 3 Loqo 2 リフ テイ 9 セ 32] 
ЕГ !1 

PR Г7279 上 トリ 289 ニュ 99 ョ 7 9 RETURN KEY 349779441 
РЕФЕ 2 
ЕЛ? 
END 


TU ЕЛ7 

PRINT СЛ" 22 лл" ?1 

МАКЕ "А FIRST READLIST 
PRINT СУФ" 7л" ?) 

МАКЕ "В FIRST READLIST 

IF А < :В [PRINT ( SE :А 
IF :ñ > :В [PRINT ( SE :А 
IF : = :В [PRINT ( SE :A 
PRINT [ ] 

ЕЛ? 

END 
























き 
7 
[1 
4 
а 
| ば 









ムリ スト の 考え か た 


**※IF と その 処理 の 考え 
か た 
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な いも の が あり , あな を た が どん な に が ん ば っ て も カズ ノ ЖАТЫ 
ョ ウ と いう よう に 3 文字 分 を あけ る こと は で きま せん . 

“p Z” で は , A と いう 変数 に , キー ボー ド か ら 入 力 し た 数 値 を あ 
て は め る 作業 が あり ます . それ が MAKE で す . 

МАКЕ “А FIRST READLIST 
BASIC の 「LET A」 と 「INPUT」 の 組合 せ に 似 て いま す . リー ド 
リス ト が キー か ら の リス ト 入 力 を 意味 し ます . な お , ファ ー ス ト を 使 
ІС 

МАКЕ “А READLIST 
と する と , Logo は A と いう 変数 に リス ト を あて は め ま す . 結果 的 に は 
A に は 数 値 が 代入 され ませ ん . ファ ー ス トリ ー ド リス ト …… つま り リ 
РОТОР КОНЕ САСАН, と いう さと で ば じじ めで 
正しい 関係 に を な り ま す . 

リス ト と いう 言葉 は , BASIC で は も っ ぱら プロ グラ ムリ スト と いう 
意味 で 使わ れ ま す が Logo の リス ト は さい し ょ と さい ご が [ ] で か こ 
まれ た も の , と 解釈 し ます . 

шш л [ 山 と 川 ] 海 スキ ー 場 ] 
と いう リス ト は , ぜん ぶ で 5 つの 要素 の リス ト , と Logo は 考え ます . 











IF の 処理 の 基本 は こう で す . 

IF 条件 [処理 1] [処理 2] 
条件 が 真 を な ら 処 理 の 1 を , 偽 を なら 処理 2 を 実行 し ます . “Е%2” の 
手続 き で は , 2 つの 数 の 関係 を , 大 きい か , 小さ いか , 等 し いか の 3 
つ に 分 け て 処理 する の で , ここ で も 正直 に 3 つの 判断 を させ まし た . 
し た が っ て , この 手続 き に は [処理 2] は 書か れ て いま せん . な お , 
処理 の 内 容 は PRINT す る こと で す . そし て , PRINT の 内 容 は モン テン 
ス (文章 ) G+. この セ モンテ ンス は 変数 や 文字 を 含ん で いま すか ら , 
PRINT ( у と いう 形 に し て いま す . [=] と する の は な ぜ か , に 
ЭСА О CC 

この プロ グラ ム は ? が 画面 に 出 て いる と き に 

ダイ ショ ウ 

と タイ プ し て リタ ー ン キー を 押し て 始め ます . “ ヒ カ ク ” の 手続 き で 
さい ご に “ ヒ カ ク " 自身 を 呼ん で いる た め , 永久 に 終り ませ ん , や め 
る と き は BREAK キ ー を 押し ます . 
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公約 数 と 公 倍数 を 計算 させ まし ょ う 








ネ ユ ー ク リッ ド の 互 除法 


*※ 変 数 を た が い に 交 換 
する 


ТО SMAP :А :В 
МАКЕ "А :В 
PR :А 

PR [ 1 

МАКЕ "B :А 
FR :В 

END 


^ ム この 手続 き で は 変数 は 交換 で 
きま せん 





小学 校 の 算数 で , 私 た ち は 最 大 公約 数 と 最小 公 倍 数 と いう も の を 習 
いま す . ちょ っ と し た 数 な ら 経 験 か ら す ぐに 答 が みつ か り ま す . し か 
し , た と えば 4 ケタ や 5 ケタ の 数 と も な る と 計算 し な けれ ば いけ ませ 
ん ね Togo に させ まし ょ うと そろ で , と わ を も ど め る (は は 《 ギ ー ク 
リッ ド の 互 除法 》 と いう も の が あり ます . と りあ え ず 2 つの 数 と いう 
£ £ I£ D ТВА 
1. は じ め の 数 の うち , котао の 余り を も と め る 
2. 余り が あっ た ら , つぎ に その 余り と 1. の 作業 で 得 た 小さ い 数 と を 

比べ る . そ し て や は り 大 きい 数 二 小 さい 数 の 余り を も と め る 

з. この 作業 を 余り が な く な る まで くり か えす 

4. 余り が な を なくなっ た と き の 割 る 数 が 最大 公約 数 に な り , 最小 公 倍 数 
は , は じ め の 数 X (も う ひ と つの は じ め の 数 一 最大 公約 数 ) と い 
э СЕА 

と いう の が それ で す . た と えば 数 A 人 が 16,. B が 72 と し まし ょ う . 

1. A=72 Bー16 に お きか えて , 72 二 16 の 余り を も と め る ( 答 は 商 
が 4, 余り が 8). 余り を A と し , B は 16 

2. А=16 Bー8 に お きか えて 16 二 8 の 余り を も と め る . 答 は 2 
で 余り が 0 な を ので, これ で 終り 

3. 最大 公約 数 は いち ば ん さい ご の B な の で 8. 最小 公 倍 数 は (72※ 
(16—8) =14412 2 2 (16х (72-8) で も 同じ で す ). 


Logo で これ ら の 手続 き を する た め に は , まず いく つか の 手法 を 考え 
な けれ ば いけ ませ ん . 余り を も と め る の は , BASIC に は MOD が あっ 
た よう に FM Logo に は REMAINDER ( リ メ イ ン ダ ) が ある の で それ を 
使い ます . も う ひ と つの , 変数 の 中 味 の 交 換 で す が , これ も F-BAS 
IC に は SWAP が あり ます が FM Logo に は な い の で , 工夫 が 必要 で 
す . 

2 つの 変数 は それ ぞ れ 2 つの コッ プ に 入っ た も の と し て , それ ら を 
同時 に 交換 で き な を ない (SWAP で は それ が で きま す ) と き は どう し ます 
か ? も う ひ と つの コッ プ を 用 意 し て , まず A の 中 味 を この スペ ア の コ 
ッ プ に 入れ , つぎ に B の 中 味 を A に あけ ます . そし て B に スペ ア の コ 








ТО 1977 
ВОСНАК 


INPUT 
| り 99 
| END 











人 へ 主 手続 き 





TO INPUT 

PRINT СЛУ" 57 hz" ?1 
МАКЕ "А FIRST READLIST 
PRINT СУФ" pz" 21 

MAKE "B FIRST READLIST 
МАКЕ "Лу" ЈА :А 

МАКЕ "л," Л/В :В 

END 











人 ム 入力 の 手続 き 





МАКЕ "B 3 
МАКЕ "ñ 9 
МАКЕ "X š 
МАКЕ "ñu*22B 15 
МАКЕ "Л" ЈА 12 
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ッ プ の 中 味 を 入れ れ ば よい の と お な を な じ 手 法 を 使い まし ょ う . これ が 
“ソウ サ ” の 手続 き の 中 に ある 

МАКЕ “X : А МАКЕ “А : В МАКЕ “B :X 
で す . スペ ア の コッ プ と お な じ は た らき を , Хікс З. 
ユー クリ ッ ド の 互 除法 を Logo に させ る の は それ ほど むず か し く は あり 
жағд. “" ソ ウサ” の 手続 き の 中 で “ソウ サ ” を 呼ぶ と いう , 再帰 的 な 
手法 を 使う わけ で す が , ある 特定 の 条件 の と き に この 再帰 を や め さ せ 
る こと を 考え な いと , 永久 に 続い て し まい ます . 

数 の 大 小 を くら べべ て 入れ か える 

余り を も と め る 

数 の 大 小 を くら べべ て 入れ か える 

余り を も と め る 
と くり か えさ れる ルー プ の 中 の , どこ か に 判断 を させ る 手続 き を 書い 
て や る わけ で す . ここ に 掲載 し た 手続 き は , ご く 原 始 的 で 洗練 度 の 低 
いも の で す が , ター トル グラ フィ ックス 以外 の Logo を 理解 する た め の 
初歩 的 な 手続 き を とい うこ と で , あえ て 作っ て いま す . 

主 手続 き は “コウ ヤク "です . 80 桁 に する 手続 き , 入力 手続 き , 操 
作手 続き で 構成 され て いま す . テキ スト スク リー ン (TS) を 使う こと 
を 命令 し た あと 

(Еа эы дг. 

と タイ ププ し, リターン キー を 押し た あと は 画面 に し た が っ て 操作 で き 
ます . な お , 入力 し た 数 値 が マイ ナス の と き は , Logo は 永久 に 堂々 め 

ぐり を し ます . また , これ ら の 手続 き を プリ ンタ に 出力 する に は 

SAVE “Р: 

と いう プリ ミ テ ィ ブ を 使い ます . ワー クス ペー ス に ある も っ と も 新 し 


_ 





| ム こ こ で 使わ れる 変数 の 例 い 変 数 の すべ て も プリ ンタ に 出力 され る の が お も し ろ い で すね . 
TO 799 
IF :А = @ [PRINT ( SE [949°4 コ 9f2 メ 9 =] :B [9492892 3904292 =] гло ЛЛА ж (А А/В 
/ :B )] 
IF :A = Q 【STOP] 
IF :ñ < :В [MAKE "X :А МАКЕ "А :В МАКЕ "В :X1 
МАКЕ "А REMAINDER :А :B 
Уш 
END 











人 操作 の 手続 き 
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判断 を し て , 手続 き を 呼び 出す 





* こ の よう な 手続 きも 可 
能 で す 


※? テ ツ ゾ ヅ キ か ら 始 め ま す 
3& RL: リー ドリ スト の 略 
※PR: プ リン ト の 略 


Logo の 使い か た の も う ひ と つと し て , 判断 を 述べ た あと の 処理 ( プ 
レデ ィ ケ イト と 呼び ます ) に , 手続 き を 呼び 出す 方 法 を 紹介 し ます . 
前 の ペー ジ に 出 て いた , 入力 し た 数 値 の 大 小 の 比較 と 同じ よう な 考え 
か た で す が , 基本 的 に は まっ た く 異 な る 手法 で す . 数 値 は まず , ゼロ 
か そう で な いか で ふる い 分 け ("ニュ ウリ ョ ク " の 手続 き ) て , ゼロ な 
5 “Еп” の , そう で な い の な ら “ゼロ デハ ナイ ” 手続 き を 呼び ます . 
“ゼロ デハ ナイ "手続 き で は , プラ ス か マイ ナス か の 判断 を し て いま す . 
[ЖУДА p=) aZ ор ар G LZ s マ 
イナ ス " の 手続 き を 呼び つぎ に “ニュ ウリ ョ ク "” の 手続 き を 呼ぶ こ 
と で す . な お 手続 き は 何 重 に も 呼び 出せ ます . 





TO 799% 


РКІ 1 


こ ュ ウリ ョ 7 
END 


TO е" 07" 1\74 


END 


TO п 


END 


ТО = ュ 9 リ ョ 7 


МАКЕ "лд" FIRST RL 


END 


TÜ 7472 


END 


TO 7%22 


РЕ ГУКА 2%Э9л772 99 219047 
END 





PR [コノ 5йуЛ フグ フラ リ テ 799" #9 37° t/y"2) 


PR [キー お"- ト "カラ スキ ナカ ス " コ 407797941 


Rh て 0 ІЗІ? ニュ 9 リョ 7] [ フ " ラ 2 = ニュウ リョ 7] 


PR CD Л 0° 07°7 THE ENDI IIEJ 


PR [97 ト " 99" RETURN KEY Э 4223 472,771 


IF 27927 = @ [t"D STOP] [tf"Dr'nf41 


PR [VL 2472772 -19U87A モト "リッ ] 





ゼロ で は な い 


も トリ マス 1 








る 判断 を し た の ち , 手続 き を 重ね て 呼ぶ 例 





ム る プロ グラ ム の 考え か た 
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ワー ド と リス ト を し っ か り 理 和解 し まし ょ う 








ネ * リ スト は ノー ト , ワー ド 


は 言葉 


※? リ スト で プロ グラ ム を 実行 


Logo が 文字 や こと ば を 扱う と き , 私 た ち は Logo が どう 処理 し て い 
る か を よく 理解 し , Logo に 合せ て 手続 き を 書か な けれ ば いけ ませ ん . 
も うい ち ど (ЈАКУ) の 考え を し っ か りつ か ん で お きま し ょ う .・ 

МАКЕ “А RL (リス ト を キー ボー ド か ら 入 力 し , A に 代入 ) の 手続 
き は , じ っ き さい に あな た が キー ボー ド か ら 

ЖЕК АГ 
を 打ち こん で , リタ ー ン キー を 押す と [ハト マメ マス ] が A と い 
う 変数 名 の つい た 記憶 の 箱 に 入れ られ ます . 

ハト 
だ け な ら , [ハト ] が A と いう 変数 に な り ま す . 

МАКЕ “А FIRST RL 
の 手続 き は , キー ボー ド か ら 入 力 し た リス ト の うち の , さい し ょ の こ 
と ば を A に 代入 する も の で すか ら , A は , た と えば “ハト に な り ま す . 

[ЖЫК ЖШ) МЕЗ АТЫ に と いう ワー ド は まっ た だ た ぐち が み で の 
СӘТЕН СӘС はり スト で ちゃ どの ンー Ne 
ひと つの こと ば が 書か れ て いる と [ハト ] に な り , いく つか の こと ば 
が 書か れ て いる と [ハト マメ マス ] に な り ま す . ワー ド は あく ま 
で も ワー ドド ですから, ノー ト を 必要 と し ませ ん . 

下 に 示し た サン プル は 変数 を 3 つ 用 意 し て , そこ に 何 が 入っ て いる 
か を 見 る も の で す . リス ト と いう 変数 は リス ト を あつ か い , 他 の ふた 
つ は 文字 を あつ か っ て いる (プリ ント アウ ト し た も の の [ ] と ? に 
注目 し て くだ さい ). FIRST FIRST : А は 「A と いう 変数 名 に ある , 
さき いしょ の こと ば の さい し ょ の も の 」 と いう こと で す . 





TEUS 
МАКЕ 
МАКЕ 
МАКЕ 
END 


MAKE 
MAKE 
MAKE 





メト 


リリ メト RL 


нКл" ЛОМА" ЛЛ" ЛЕУ" FIRST FIRST : リ スト 
リリ メト ノル リト メソ コト 中" 7943" ノ モ セッ" LAST FIRST : リ メト 


"Л БЕУ" 


ол セイ テッ МЫ 
リリ メト ノル ラッ ト メリ コト ルト フサ イコ リリ モッ ドー "À 
пуя" ОКА ЛЛУ РЕ" "Ж 


※ 下 の 3 つの MAKE は , SAVE “Р: を 実行 し た 
と き の , ワー クス ペー ス に ある 変数 と その 内 容 を 
表わし て いる 





リスト を 入力 し , 文字 を と り 出す 
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Logo に "し り と り " の 審判 を させ る 








* ネ しりとり の ルー ル 


**※ こ と ば を 人 入力 し , U 
スト を 作る 


※LPUT : リ スト の さい ご に リス ト 


リス ト と こと ば (ある い は 文字 ) を よく 理解 する 見 本 と し て , Logo 
ЗОДИ ОО ОДЕА t S b ЕО 2500 20-=2 

〇 こと ば の 終り が “ ン "” な ら ゲ ー ム 不成立 

O 前 の こと ば と つぎ の こと ば が 同じ 文字 で を けれ ば ゲー ム 不 成立 

〇 いち ど 出 た こと ば を も う 一 度 出 し た ら ゲ ー ム 不成立 
оаза ао О (О ЛЕЕ АЕО 
“ж” は , Logo は ひと つの 文字 と し て みとめ ず , кисә“ х” 
に 扱い ます が , この 点 に つい て は 今回 は 考え を ませ ん . 


いま の ルー ル を , その まま Logo に 教え こめ ば よい の で , それ ほど も む 
が の くい まな 0 GE 9,9 ЕКО АЛЕ БОЕ ВӘ 
жаа аң 2 БСР ИЮ SA l Ç (8 
:А—:В—(:В®:АЕЖ3525)—:Вә(:В#®:АБ#Ж 35) 
と て か こさ に し СЙ ОРАЛА СОЛИ К\з, СОХ 
J)” の 手続 き で 

МАКЕ “А FIRST RL 
WV NAS は ご と (まま を 代入 KW や の 

МАКЕ “ デ タ コ トバ LPUT :A [ | 





や こと ば を 加え る IS 逢 出 依 きた さと ば を も りり ス の し ろ に つけ て や り ま す 。 
ТО リト リ 

49CHAR TÜ ñu" 27219737 

Т8 WAIT 500 

PR [ ] CLEARSCREEN 

PR [ 1 SPLITSCREEN 

PR [コル カラ ЛЭӘЛТІЗ% リリ トリ 9 uquan] HIDETURTLE 

PR [ 1 PR [97 ラリ トリ 3 лу" 90891 

PR [ 2 PR [ ] 


PR ТМ”) Na" Zh 42927] 
PR 【(27) ТОТ 85 
РКІ 1 


ñu" 27210737 
END 





Са 9 Л У) トッ マス ] МАКЕ "А FIRST RL 


PR 【t# ロ フ (2) ` 999 2702 ナリ 32] МАКЕ "9 コ AN" LPUT :A С 1 
PR (АС 7°9 ам ñ ®#П7 Logo Л" 447174721 


PR Саһл" Э トウ が 1 


IF "2 = LAST :А 27° 477 ло" 272127371 


ғам” 














る こ の 手続 きか ら ゲ ー ム 開始 


る は じ め の 入力 の 手続 き 








TO 27747) 
PR [ 1 
PR [J 
カウ ッ ト 
END 


テ " オ 79 テ イマ イス y"- ta kh] 


ТО #77" 729 

PR [ 1 

PR 【 リ ノコ トル "月 Ұ?77 94991 
カウ ッ ト 

END 


TO りか" リッ セッ 

‚РЕ [ ] 

PR [ラリ トリ ニ 7974761 
ШІ; 

END 











ム る ゲー ム セ ッ ト に な る と き の 3 つの 手 
続き 


※ こ の し り と り は 7 つの 手続 きか ら 


193 





TO 9% 715 
PR ГУЖ" Локл" 
МАКЕ "В FIRST RL 

МАКЕ "AEND LAST :А 

МАКЕ "BFIRST FIRST :В 

TEST :AEND = ;BFIRST 

IFFALSE [” fp" уату л" 57212787] 


34 hg 283 


IF "っ = LAST :В T27"499 ñu" 2223998923) 

IF MEMBERP :B :y"*33b [モウ テア "マッ ラク Лу" 7219787] 
МАКЕ “772207 LPUT :В ig テ "2 コト ルル 

МАКЕ "А :В 

Ж" акл" 

END 











ム こ れ が 実際 的 に は メイ ン の 手続 き に な り ま す 


つま り : A と : B は と ど ば ( ワ ゴ ド ) С, : デ タ コ トバ パ は リス ト に なり 
ます . “つぎ の こと ば "が 主要 手続 き , と も いう の も の で , ここ で は : 
B の 入力 を も と め た あと , : A の こと ば と : B の こと ば の さい ご と き 
いし ょ が つなが っ て いる か , “и” で 終る こと ば か , いま まで に 出 た こ 
と ば か (MEMBERP) どう か , な どの ゲー ム の 成立 要素 を チェ ッ ク し て 
いま す . 

そし て , それ ら が まっ た く 問 題 を いと き は , 次 の こと ば の 入力 の た 


Әс, いま まで 出 た こと ば の 一 覧 表 を 作り ます . 

МАКЕ “ デ タ コ トバ LPUT :B : デ タコ トバ 

(: デ タコ トバ と いう リス ト の さい ご に , : B と いう 変数 の こと ば を つ 
け て , 新しく : デ タコ トバ と いう リス ト を 作り な さい ) 

が それ で 3 ひま る ゆで 家人 半 づつ.、U80A に ЗВАО А 
を 続け ます . 

SAVE “Р: で 手続 き と 共 に プリ ンタ に 打出 され る 変数 な ど を 見 る と , 


こと ば と リス ト と 変数 名 の 関係 が は っ きり する で し ょ う . サン プル は 














構成 され て いる “リボ ン ” を 入力 し た た め に ゲー ム セ ッ ト と な っ た と き で す . 
ТО Л? 
РЕ ( SE гт" 9 コト kN" /Лл` Л] COUNT : テ "9 コト リド 177991) 
D 
カウ ント の 手続 き P РА 
МАКЕ "7" 9 コトリ" [42 л4Л 7% サメ メグ "有力 カイ イノ チ %%19 ウリ 5959" $ #99 ネコ コマ マリ ] 
МАКЕ "В "УС; 
МАКЕ "А "77 
ゲー ム セ ッ ト に な っ た と Py МАКЕ "BFIRST "U 
ま の ワー クス ペー ス の 中 味 МАКЕ "AEND "U 
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名 注 を 整理 し , 重複 し た 名 前 を 取り の ぞ く 








* ネ 名簿 上 に 重複 し た 名 前 が 
ある と き 


ネネ 重複 し た も の を 取り の 
ぞ く 方 法 


※ 要 素 が 含ま れる か どう か の た め に は 
MEMBERP が 使え る 


*** 手 続き の 作成 と 注意 
する と ころ は ? 





電話 帳 で も , 名 刺 の ホル ダー で も な ん で も よい の で す が , そこ に 書 
き 入 れ た り , し まっ て お いた も の が , 重複 する こと が あり ます . 重複 
し た も の を と り の ぞ く こ と を Logo に 命令 し まし ょ う . 

た と えば いま , ある 紙 に アル ファ ベッ ト を どん どん 書い て ゆき ます . 
これ が リス ト の 作成 で す が , た と えば 

A BDFBGDAB 
に な っ た と し まし ょ うか . この リス ト か ら 重 複 し て いる も の を 見 つけ 
出し て , 新しい リス ト に 

ABDFG 
の 5 つが 作成 され れ ば , 重複 し た 分 を と り の ぞい た こと に な り ま す . 
どう いう 手法 で プロ グラ ム を 作り ます か ? 


た と えば この よう な 方 法 が 考え られ ます . まず , も と の リス ト か ら 
さい し ょ の 要素 を 取出 し ます . 

А [ВОЕВ СР А В] 
そし て , 取出 し た A が , 右側 の リス ト に 含ま れ て いる か どう か を チェ 
ッ ク し ます . ここ で は 右側 に A が あり ます か ら , 新しい リス ト (さい 
し ょ は な に も 書か れ て いな い , まっ し ろ な リス ト で す ) に は , いま 取 
出し た 要素 は 書か な いこ と に し ます . そし て , リス ト は いま 左側 に 取 
出し た 要素 を 捨て て し まい 

BDFBGDAB 
と いう も の に し ます . B を 取出 す と ここ で も B は 右側 の リス ト の 中 に 
含ま れ て いる の で , 新しい リス ト に は 書き こみ ませ ん . 重複 し て いな 
いも の だ け を 書き こみ ます . この くり か え し で , も と の リス ト に 調べ 
る 要素 が な く な る と , 作業 を 終え ます . 


Logo へ の 手続 きも , いま の 考え を そっ くり は て は め れ ば よい こと に 
な り ま す . た だ し , くり か え し 一 一 再帰 的 な 手続 き の ど こ か に 条件 判 
断 を 入れ な いと , Logo の 実行 は 永久 に 終り ませ ん . この 部 分 さえ じ ょ 
うず に 書け ば , あと は 特別 な 手法 は 不要 で す . で は 実際 の 手続 き を 見 
て くだ さい . 主 手続 き は “名簿 の 整理 ”" です. メッ セー ジ を 画面 に 出 
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L, ЭНОУАКЕЗ-Ж!, ҰОС “АЛ” “ТУ” б 
< “出力” の 手続 き を 呼ん で いま す . 
入力 は “一 人 分 ” と いう 変数 に RL (リー ドリ スト ) を 代入 し MM 3 
ここ で は ひと り ひ と り を 入力 し , も し 作業 を 中 止 す る の な ら 9999 を 9 
イプ する よう に し まし た . 最初 の 例 の よう に 入力 する と , “ЖЕШ 
付け た リス ト は 
А BDFBGDAB 9999 
に な り ま す . この 9999 は , この 先 の “チェック "” に も 使い ます . な お 
STOP と いう プリ ミ テ ィ ブ は すべ て の 手続 き を 中 断 す る の で は な くそ 
れ が 書か れ て いる 手続 き の 実 行 だ け を 中 断 し ます . 
チェ ッ ク は 一覧" の リス ト か ら ひ と つ を 取出 し , これ を “サンプ 
д? と いう 変数 に し ます . そし て 新しく サン プル を 取り の ぞい た “一 
ы” を 作り , この 2 つ を 比べ る わけ で す . サン プル が 一 覧 に 見 あたら 
な けれ ば , “ 新 一 覧 " に サン プル を 書き こみ , 見 あ た れ ば それ は 重複 分 
※ 取 出し た 要素 が 重複 し て いな いと き , ですから “重複 "リスト に 書き こむ よう に し まし た . な お 一 覧 リス ト 
その 要素 を も と の リス ト の きい こ に つ 9999 が 残っ た 時 点 で 作業 を 終え ます. プリ ンタ に 出力 され た 変数 を 


























ける 方 法 も ある . その 方 が 合理 的 と い 
える 見 て くだ さい . 重複 し た も の と 新しい 一 覧 表 が 出力 され て いま す . 

ТО #197 
МАКЕ "927° FIRST イチ ラッ 

TU 448" Jt (U IF MEMBERP "9999 :927° 0 І5ТОР1 

PR ГІ Э 219787 27729" 941 МАКЕ "イチ ラリ BUTFIRST イチ ラッ 

PR [ニュ ウリ ョ 7 リル 上 トリ スズ "人 9 テス ] TEST МЕМВЕКР :%922° ルイ チラ フ 

PR [ ] IFFALSE 【MAKE "ラッ イチ ラッ LPUT :927° ルリ フイ チラ ソコ 

МАКЕ "4%5/ [ 1 IFTRUE [МАКЕ "Яз927 LPUT :9322° & :#з90771 

МАКЕ "リフ イキ ラフ [ 1] #157 

МАКЕ "チョ 9 ウ 27 Г 1 END 

ニュ ウリ ョ 7 

す r97 ТО ニュ ウリ ョ フカ 

мі а? PR [472973 9999 Э ニュ ウリ ョ 7] 

END МАКЕ "上 トリ フフ RL 
МАКЕ "イチ ラッ LPUT ヒト リフ "リー: イチ ラリ 

TÜ 229987 IF MEMBERP "9999 :ЕКУ77у [STOP] 

Cs ニュ 1 ウ リョ 7 

РК [@@ 79501 リス ト テ "スズ 861 END 

PR ラッ イチ ラテ 

РКІ ] МАКЕ "チョ ウ 27 [[A] [B] [DJ ІВ11 

IF EMPTYP :%з3977 [STOP] МАКЕ "リラ イチ ラッ ПІРІ [61 [DJ] ГАЈ ІВ11 

РК 199 チョ の ウ 77 リ テイ ラノ リー ФФ] МАКЕ "イチ ラッ [[9999]1 

PR ( BE [ニニ ] : す チョ ウ 977 Г?"99 221) МАКЕ "#;7*°& [99991 

END МАКЕ "上 トリ 7" フ [9999] 











ムリ スト か ら 重 複 し た も の を 取り の ぞ き , 新しい リス ト を 作る 手続 き 
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ァイル の 作成 は こう する 








* Logo と ファ イル 


*※※ ブ ロッ ピー へ の セッ ト 
方 法 は 


Logo を 使っ て ,。 デ ー タ を フロ ッ ピ ー に 収め る こと を 考え まし ょ う . 
Logo で は プリ ンタ や キー ボー ド , ディ スプ レイ な ども ファ イル を 扱う 
デバ イス (機器 ) と し て 扱い ます . BASIC CGIZPRINT#, INPUT # 
ある い は PUT, GET と いっ た 命令 を 使っ て , バッ ファ の デー タ を フロ 
КУЕ а УО М 7 ウデ がら デー タ を も ら っ つた り し で い ゆめ まま し た 
が , Logo で は フロ ッ ピ ー に 書い た り , フロ ッ ピ ー か ら 読 ん だ りす る 専 
用 の プリ ミ テ ィ ブ は あり ませ ん . ディ スク を オー プン し て , 書き こみ 
の 準備 (SETWRITE) や 読出 し の 準備 (SETREAD) を し た ら , Р 
БМІМТЗБЕАРЫЛЫТУҒЫ, いま まで は キー ボー ド や ディ スプ レイ に 対 
し て 命令 し て いた 入 / 出 力 の プリ ミ テ ィ ブ を 使い ます . 


サン プル は 主 手続 き が “成績 ファ イル の 作成 " G+. ディ スク ドラ 
イプ ブ の 0 番 を 使う よう に 設定 し た ら , “АЛ” の 手続 き を 呼び ます . 


“入力 ” の 手続 き で は 名 前 と 成績 の 2 つの 変数 に それ ぞ れ の デー タ を 人 入 


力 し た ら , “書込み ” の 手続 き を 呼ん で いま す . “書込み "” では, セッ 
トラ イト 文 を 書き , 2 つの 変数 を フロ ッ ピ ー に 書 込 ん で いき ます . 2 
れ が 終っ た ら , も う ひ と つの セッ トラ イト 文 が あり ます . ここ で 指定 
し た デバ イス は 「S」…… つま り ス クリ ー ン で す . 

“入力 ” の 手続 き の 最 後に “入力 " を 呼ん で いる の で , 1 回 分 の 入力 
が 終っ た ら , また 入力 を 続け ます . 通常 の 入力 を 続け て いる 限り , Қ 
ШО. нема タ が どん どん フロ ッ ピ ー へ と 書 込 ま れ て ゆき ま 
` бен RI ЖУЛ ЕЕЕ 90. 

, 作成 し た デー タフ ァイル は , BASIC と は 違っ て ディ レク トリ 
ега プロ グラ ム な の か ファ イル な の か の 区 別 は で きま せ 
Л ぐす か ら Togor で ぐ 作 づつ だ デー タ 用 の ファ イル 名 は ,。 た と えば 時 ンプ 
ル の よう に ファ イル 名 の あと に 「DT」 な ど を つけ た り し て , 識別 で き 
УЫ а tapa 

デー タ の 記録 方 法 は この ほか に , た と えば 名 前 の 変数 を ひと つの リ 
スト 形式 に し て ( 例 :[ 山 田 上 田 吉岡 ……]), い ちば ん 最後 に ま と 
め て フロ ッ ピ ー に 書 込 む こと も 考え られ ます . な お , モッ トリ ー ド 文 
は 手続 き の 中 で し か 使え な い の で 注意 し まし ょ う . 








ネネ ※ ネ デー タ を 読む 
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デー タ を 読む た め の , いち ば ん 簡単 な 方 法 は , D0 を 使う と し て 

POFILE `D0: ファ イル 名 

に な り ま す . この プリ ミ テ ィ ブ を 使う と き は OPEN 文 は 不 必要 で す . 

ファ イル され た デー タ は , や は り OPEN 文 を 使っ て 指定 の ファ イル 
を 開き , SETREAD に よっ て 可能 に な り ま す . 多く の デー タ が 入っ て 
いる ファ イル を 読ん で ゆく と き は BASIC と お な じ よ うに , デー タ が 最 
後 か どう か を 調べ な いと いけ ませ ん . ファ イル の 未 尾 を 知る た め に は 
EOFP を 使い ます . デー タ が ある 間 は 偽 を , 末尾 な ら 真 を 返し て きま 
す . この EOFP と IF や TEST そ の 他 の プレ ディ ケイ ト と を 組合 せる こ 
Сс, 指定 の ファ イル に 存在 し くい る デー タ を 取出 し た りす る こと が 
で きま すず 

ファ イル を 操作 し て 目的 の デー タ を 探し た り , ソー ト し て 新た な デ 
ー タ を 作り , それ を も うい ち ど フ ァイル に する と いっ た 作業 も 可能 で 
す が , じっくり と 考え な いと か を なり 上 難し いか も し れ ま せん . 





TU 7 セキ ファ イサ 7 セイ 
TS 80СНАК 

ОРЕМ "D9: コ 7 コテ ヌメ ト DT 
23987 

END 


ТО ニュ ウリ ョ 7 

PR І77І1 9 С9У ж 47972 711 9 219037 97797741 
МАКЕ "77І READLIST 

IF МЕМВЕВР "227 :77І [422 STOP] 

РК [tf セキ 3 С 9У71 

МАКЕ "Т4®+# READLIST 

ВЕ 

カキ コミ 

212937 

END 


TO 27) 

PR [ニュ 9 リョ 2 ñ АЛУҒА ж ж キト 927 ル AT ニモ トリ リフ ス 2 %* * +] 
CLOSE "D9: コ 7 コテ ヌ ト DT 

END 


TO カキ コミ 

SETWRITE "D9: コ 7 コテ スト DT 
PRINT :77І 

PRINT st {t+ 

SETMRITE "5: 

END 














198 





Logo に よる ソー ト の 考え か た , 作り か た 








*Logo に お ける “並べ か 
え ” に つい て 


** 3 つの 数 を 例 に し て 
考え て みよ う 


コン ピュ ー タ が も っ と も 得意 に し て いる も の に “ならべ か え " +з. 
ソー ティ ング が あり ます . Logo に も , も ちろ ん で きま す が , BASIC 
と は 考え か た を 変え を けれ ば いけ ませ ん . と いう より は , 考え か た は 
お な じ で も , 書法 が 異 る と いっ た ほう が よい で し ょ う . Logo に よる 数 
値 の ソー ティ ング を 考え て み ま し ょ う . な お , サン プル の プロ グラ ム 
は な る べく 分 りや すい よう に , 手続 き を 細か くし て いま す . 


まず 暴 体 的 4 リス ト を 例 に し て 考え まし ょ う . いま , つぎ の リス ト 
が ある と し ます . 
[3 2 5] 
実際 の 入力 作業 で は , 入力 の さい ご に 『“Z” を 入れ て それ を 合図 に し 
с, つぎ の 手続 き に 入り ます し , この ZZ を 利用 する た め に リス ト の き 
い ご に これ を 入れ て お きま す (“入力 "の 手続 き 参 照 ). 
・ リ スト ー[3 2 5 Z] 
“АА” の 次 の 手続 き は “取出し” で す . ここ で は 
МАКЕ “MIN FIRST : リ スト 
(リス ト の 最初 の 要素 を 取出 し て , : MIN に 代入 し な さい ) 
МАКЕ / リ スト BUTFIRST : リ スト 
(リス ト の 最初 以外 の 要素 を 取出 し て , : リス ト に 代入 し な さい ) 
で すか ら , :MIN 一 3 : リ スト ー[2 5 2] に な り ま す . 
次 は “並べ か え " の 手続 き で す . 
IF EMPTYP : リ スト [シュ ツリ ョ ンク] 
(: リ スト が 空 な ら , “ЕЛ” の 手続 き を 呼び な さい ) 
・ リ スト は 空 で は な い の で , 次 へ ゆき ます . 
МАКЕ サン プル FIRST : リ スト 
(: サン プル に , : リス ト の 最初 の 要素 を 取出 し て 代入 し な さい ) 
で すか ら , ・ サ ンプ ルー2 に な り ま す - 
IF : サ ンプ ルー/Z [操作 取出 し 並べ か え ] 
(取り 出し た : サン プル が Z 乙 な ら , 3 つの 手続 き を 呼び な さい ) 
・ サ ンプ ル は Z で は な ゆい ので だ ここ を 無視 し ます . つぎ は 
МАКЕ “ЈА К BUTFIRST : リ スト 
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юа МЛ рер с ЮУ. 
IF :MIN > : サ ンプ ル [入れ か え ] 
(も し : MIN (実際 に は 3) が : サ ンプ ル (実際 に は 2) より も 大 きか 





TD リー ト 
НЕЪАЧ Б TU 9%ғ/у-Һ 
こ ュ ウリ ョ 7 PR t 1 
トリ ダッ РЕ [?9 リー ト Э %ЕЗЛЛ 21 
f" hI PR [スル ・・・・ > Y 274 BREAK KEY] 
19 リ ョ カ IF "Y = FIRST RL 【〔[ リ ー ト ] 
END "ノリ = ト 
END 
TÜ け 3^* カエ 
IF EMPTYP : リ スト [ジュ リリ ョ 71 707239797 
МАКЕ "927° 0 FIRST ШУЛ PR СЛ" ЭМ‘ ウリ "ーー 17775 1 Э こ ュ ウリ ョ 7] 
IF :9279% = "1 [リウ 9 トリ 9 リッ 7257711 МАКЕ "X FIRST RL 
МАКЕ "リス メト BUTFIRST ;UZh МАКЕ "リス メト LFUT :X リス メト 
IF :MIN > :922° & [イル カエ ] IF "Z = :X [STOP] 
МАКЕ "リス ト ЕРОТ :727° 0 ミリ メト МАКЕ "モト ノリ メト ミリ スト 
rss" hI こ ニュウ リョ 7 
END END 
ТО +íLhI TÜ уа%?ят4 
МАКЕ "77 ミー :927° № B9CHAR 
МАКЕ "$J2)°& :MIN TS 
МАКЕ "MIN :975- 68 
END МАКЕ "リス メト [ ] 
МАКЕ "リー トリ メト 【 1 
TU hu"; END 
МАКЕ "MIN FIRST : リ メト 
МАКЕ "yak BUTFIRST 』 リ スト МАКЕ "リス メト [ ] 
END МАКЕ "722° "2 
МАКЕ "MIN "Z 
то 999 МАКЕ "リー トリ メト [2 3 51 
МАКЕ "ソー トリ ヌメ ト LPUT :MIN : ソ リソー トリ スト МАКЕ "モト ノリ メト [3 2 5] 
МАКЕ " リ メ ト ЕРОТ FIRST 』 リ メト ミリ スト МАКЕ "X "Z 
МАКЕ "リス メト BUTFIRST : リ Zk МАКЕ "7" ミー 2 
END 
ТО 5 ュ 19 リョ 7 
РКІ ] 
PR ( SE [oe も モト ノ リス メト 17"-9 ス 9 =] COUNT : も モト ノリ 2 メト ГІ 991) 
PR : モ トノ リス メト 
PR [ 1 
РК 19% すう 3^" カエ ジュ ウリ ョ ウー リス ト #01 
| PR : リ ー ト リ ヌ ト 
"£" ノリ ソート 
END 











人 る ソ ー テ ィング の 手続 き ( 主 手続 き は “ソート”) 


БЕ жасанды ТЕНИР ааа 
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жжж “7” の 位置 で 並べ 
か え を 判定 させ る 


っ た ら , “入れ か え " の 手続 き を 呼び な さい ) 
3 >2 は 真 (TRUE) で すか ら , “入れ か え ” を し ます . 入れ か えた 
あと は :MINー2 : サ ンプ ルー テー3 に な り ま す . つぎ は 
МАКЕ / リ スト LPUT : サ ンプ ル : リ スト 
(リス ト と いう 変数 を , : リ スト の さい ご に : サ ンプ ル を つけ た も の に 
し な さい ) 
: サッ ジ 到 は ほ は 3。 リ スト は [5 71 Ө で し た か ら , 新 い リス ト は 
・ リ スト ー[5 Z 3] 1 
に な り ま す . 最初 , いち ば ん 最後 に あっ た 選 が ひと つ , 前 へ 進ん で い 
る と と に 注意 し て くだ さい . 


RC まだ RE かえ に も 2 aE 9 

:МІМ-2 : サン プル ー5 ・ リ スト ー[5 Z 3] 
の 状態 で ,。 : MIN と : サン プル を 比べ ます が , ` MIN の ほう が 小さ い 
ос, ここ と で は 入れ か え を せ ず に , サン プル を リス ト の さい ご に つけ 
ます . し た が っ て 2 回 目 の 操 作 で は 


・ MIN 王 2 リスト テ [Z 3 5] 
に な り ま す . こう し て また “並べ か え ”" に な り ま す が , 3 回 目 の 時 に 
サジ 7 Лу 7, 


に な る の で , まず “操作” を 呼び ます . 

МАКЕ ソー トリ スト LPUT ІМІМ : ソ ー ト リス ト 
(結果 的 に は : ソー トリ スト テ = テ [2 ] に を り ま す ) 

МАКЕ リスト LPUT FIRST : リ スト ・ リ スト 
(リス ト と いう 変数 を , : リ スト の 最初 の 要素 を 取出 し て , それ を : リ 
スト と いう 変数 の さい ご に つけ な さい ) 
この 手続 き に 入る 前 の : リス トー[Z 3 5] で し た か ら , この 命令 
eso Ж ТӨШЕ [07 З әб М なり まず: この あと Ж 
fE” の 最後 の 命令 を 実行 し ます . 

МАКЕ リスト BUTFIRST : リ スト | 
(る 枕 に よっ で り ス トー ト 3- Бе йс に なり ます ) | 
これ で リス ト の 中 に ある , いち ば ん 小さ い 数 が “ソー トリ スト "に 入 | 
0б, し か も いち ば ん 始め は リス ト に 入っ て いた 数 が 消え ます . つぎ に 
“取出 し ” の 手続 き で すか ら : MIN 一 3 に な り , リス トー[5 Z] に 
な っ て , また “並べ か える? に ゆく と いう わけ で す . 


a a s | 
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SN キル 74 | 図形 の 回 転 102 
šT YA B| スタ ッ カ ー ト 165 
Надеж 2 スタ ンプ 184 
50 音 順 、 АВС 区 点 コ ー ド 138 スプ リッ トス クリ ー ン 174 
組合 せ 33 
Ж) コマ ンド や ブ プリミティブ, 慣用 的 に クラ スタ 12 セ 
大 文字 で 表わさ れる も の を 大 文字 , 一 般 グラ フィ ッ ク カ ー ソ ル 116 整数 14 
用 語 な ど は 小文字 に し て いる 。. グラ フィ ッ ク 座 標 94 整数 弄 31 
太字 は Logo に 関係 する も の . クロ ー ズ 67 整数 除算 
セク タ 12 
Йй 7 KS ロン 24 
アニ メー ショ ン 128 ЛР 74 セー ブ 10 
жук ЖА 50 検索 45 キン 174 
イ コ ЖжЖУТУА 186 
ол 10 сілі % 96 / 
イン スト リン グ 関 数 44 コー ド ( 音 楽 ) 166 添字 48 
РУУ 24 コネ クト 98 МЕ-Е 58 
イン ブッ ト 183 Аз 82 
イン プッ ト $ 25 4 2 
АУТУҺЖ 67 タイ マ 35 
т 再帰 173 ター トル 177 
最小 公 倍数 188 ター トル グラ フィ ッ ク 186 
円 97 最大 公約 数 188 ダブ ルコ ー テ ーション 82 
ЕГІ 177 サイ ン 96 単 精度 31 
演算 子 20 サウ ンド 156 74 
+ 座標 94 Z 
三角 関数 96 定義 174 
オクターブ 162 三原 色 120 А АЛУ. Б 10 
| ж-ту 66 3 次 元 図形 108 О 12 
音階 162 算術 演算 子 21 テキ スト スク リー ン 174 
音量 162 算術 式 21 デー タフ ァイル 66 
2 手続 き 172 
し = デフ ォ ル ト 値 162 
カウ ント 38 ac イブ 184 テン ポ 162 
カー ソル 116 ェ ル ソー ト 56 
カー ソル キー 62 Ж 20 р 
カラ ー コ ー ド 120 シー ケン シャ ルフ ァイル 66 トッ プレ ベル 183 
カラ ー パ レッ ト 120 ペン 12 トレ モロ 165 
関係 演算 子 21 周期 164 ナ 
関係 式 21 周波 数 156 eu 
漢字 ROM 138 | 16 進 数 ШЕШ). 9128 
関数 36 10 進 数 16 = 
Е 24 主 手続 き 183 2 進数 16 
キ 順列 32 ヌ 
真 18 
% 18 人 工 知能 172 ег 25 
キー ボー ド 24 ス ネ 
キャ リッ ジリ ター ン 30 ネス ティ ング 32 
休止 符 162 数 値 変数 24 2 
協和 音 166 Cr 122 

















202 


ノイ ズ 
ハ 


パイ 

ШШЕ 

バイ ト 
パイ ド タ ー ト ル 
配列 

配列 宣言 

バグ 

波形 加工 

波形 指定 

パー シン グ 
バッ ク 
Т 
発振 周波 数 
の 20 の 
パレ ッ ト コ ー ド 
半音 階 

番地 


引数 

左 づめ 
р 
ビデ オォ ラム 
k= Z 
2 ラバー が 


ファ イル ズ 
ファ イル 名 

ヲ ィ ー ル ド 文 
Е УН 
ТОО 
ジリ ロミ ティブ プ 
TE 
ШУ Б 
Z) x F # 
кулуу? 
プレ イ 文 
デイ ケイ ト 
フロー チャ ー ト 


ペイ ント 
ペン アッ プ 
ペン ダウ ン 
ホ 
ポイ ッ ント セッ ト 


156 


104 
23 
22 

174 
48 
53 
29 

156 

164 

186 

181 
10 

156 
74 

120 

162 
22 


36 
76 
14 
122 
97 
165 


66 
13 
76 
10 
74 
175 
21 
186 
67 
42 
162 
190 
86 


118 
181 
181 


97 





ポイ ント リセ ッ ト 
補 数 表現 


マク ロ 言 語 
Бо 
マル チ ス テー トメ ント 


> 
х 
で 


右 づ め 
ミク サ 


メニ ュー 
ep: 
ユー ザー 定義 関数 


7 
ом С 
ライ ン イ ンプ ッ ト 文 
ТУУЛУ 
乱数 
ラン ダマ イズ 
ラン ダム アク セス ファ イル 
リ 
リカ ー ジ ョ ン 
リス ト 
リス ト ア 
リセ モット 
ター ン キ ー 
立体 の 回 転 
ペグ 


レコ ー ド 番号 
レジ スタ 
レム 文 


ロゴ 
ロー ド 
論理 演算 
論理 演算 子 
論理 式 


ウー クス ペー スズ 
= 
割込み 


97 
14 


162 
100 
27 


76 
157 


80 


103 


116 
25 
104 
34 
35 
66 


173 
191 
38 
35 
19 
112 
13 


74 
156 
13 


172 
176 
15 
21 
21 





AND 
argument 


BEEP 

bit 

BK 
BUTFIRST 
byte 


CLOSE 
CONNECT 
COS 
CPU 


DATA 
DEF FN 
DSKINI 


EMPTYP 
КОЕ 
ЕОЕР 


ERASE 


ERPS 
ES 


FD 

FIELD 

FILES 

FIRST 

FIRST READLIST 
FOR 一 NEXT 

FRE 

FUNCTION 


GCURSOR 
GET 
GET@ 


18 
36 


97 
14 
181 
172 
22 


67 
98 
96 
22 


38 
103 
10 


198 

70 
197 
175 

53 
175 
175 
184 


181 
76 
12 
200 
187 
30 
23 
36 


116 
75 
124 
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| noise 156 RT 181 
null 25 
IF 26 5 
IF 187 o SAVE 10 
INKEY $ 24 OPEN 66 SAVE 174 
INPUT 24 OR 18 SCREEN 122 
INPUT$ 25 SE 186 
INPUT# 67 Р SETH 181 
INSTR 44 PAINT 118 SETPC 175 
interrupt 40 PD 181 SETREAD 197 
PF KEY 40 SETSH 184 
K PLAY 162 SETWRITE 196 
KILL 67 POPS 181 SHAPE 184 
POTS 179 SIN 96 
L PRESET 97 sort 56 
LEFTS$ 43 PRINT 21 SOUND 156 
LEN 42 PRINT 186 SPACE$ 42 
LINE 116 PRINT USING 42 ss 174 
LINE INPUT 25 PRINT# 67 subscript 48 
LIST 191 PSET 97 SWAP 188 
LOAD 69 PU 181 
LOAD 176 PUT 74 T 
LOF 88 PUT@ 128 TEST 197 
Logo 172 TS 174 
LPUT 192 R 
LSET 76 RAM 22 У 
LT 181 RANDOMIZE 35 VOLCOPY 12 
READ 38 VRAM 122 
M READLIST 190 
MAKE 187 REM 13 W 
matrix 100 REMAINDER 188 WAIT 176 
MEMBERP 193 REPEAT 176 WHILE 27 
MID$ 44 RESTORE 38 
MOD 188 RND 34 X 
ROM 22 XOR 18 
N RSET 76 т 104 
掲載 主要 プロ グラ ム ————  -.- [ 
BASIC 平面 図形 の 回 転 105 Lege 
立体 図形 の 回 転 113 
10 進 2 進 変換 プロ グラ ム 15 カレ イド スコ ー ブ プ の 作成 127 回 転 す る 四角 176 
x 暗号 の 作成 と 解読 47 Жена 25231 130 花壇 に 花 を 180 
| シェ ルソー ト 57 24 枚 の 絵 合 せ ゲ ー ム 133 花 た ば を 作る 182 
爆弾 か くし ゲー ム 63 漢字 が 使え る 文書 作成 プロ グラ ム 149 旗 を 描く 184 
| フロ ッ ピ ー 日 記 [ү ° р baa 169 | 最小 公 倍 数 最大 公約 散 を 求め る 189 
わが 家 の 蔵 書 整理 80 | し り と り ゲ ー ム 192 
多角 形 を 描く 99 | Logo に よる ソー ト 199 
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F"M-「'7 "| の 本 


1 | これ だ け は 知っ て お きた い FIM-77 の ABC 
2 | 本 格 的 を プロ グラ ム 作 り の た め に 

3 | すっ か り 分 る ファ イル の 操作 

| 4 | グラ フィ ックス を マス ター し まし ょ う 

| 5 グラ フィ ックス の 進ん だ 使い か た 

6 漢字 の 取扱 いと その 応用 

| 7 | サウ ンド ミュ ー ジ ッ ク 

| 8 | これ か ら の 言語 Logo を 研究 し よう 
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